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♦f DE 6502 KENNERS »♦ 



EEN CLUB VOOR 6XXXX 6EBRUIKERS ** DE 6502 KENNER ** 



EEN BLflD VOOR 6XXXX GEBRUIKERS 



De vereniging heeft leden in NederUnd, Belgie, Duitsland, 
Frankrijk, Engeland, DeneMrken, Zwden, Spanje, Portugal, 
Israel, Aierika. 

Het doel van de vereniging is: het bevorderen van de ken- 
nisuitHisseling tussen georuikers van 6XXXX-coaputers, als 
COmODORE-64, WIGfl, APPLE, HflCINTOSH^ ftTflfil XL/ST. cfC-1, 
PEflRCOH, fll>h65, SYfl, PET, BBC^ VIC-26,^ BASIS 108, PROTON- 
coiputers, in-2020, OSI, ftCC MOO, ftCilRN ELECTROSl. SYSTEM 
65. PC-100, PflLLflS, HIMTA, FORJWSfl, ORIC-1, STflRLlfeHT,^ CV- 
777, ESTATE III, SBC65/M, KIM, NCS^ KEWW SYSTtN-4, 
Elektuur-coaputers (JUNIOR, en de rctOPUS), LASER, dus 
ook 6A00, 6809 en 68000-coaputers. 

De kennisuitNisseling Hordt o.a. gerealiseerd door 6 ual 
per jaar DE 6502 KEIWER te publiceren, door het houden van 
landelijke clubbijeenkoasten, door het instandhoudcn van 
een cassette-bibhotheek en door het verlenen van paper- 
Hare-service. Regionale bijeenkoasten Horden door de leden 
georganiseerd. 



Verschijningsdata 
DE 6502 KQWER 19 B5 

derde zaterdag van 
februari, april, juni, 
augustus, oktober, deceaber. 

Inlichtingen over de regio- 
bijeenkosaten: 

Gerard van Roekel 
Van der Palastraat 11 - C 
3135 LK Vlaardingen 
Tel.: 010 - 351101 



Bijeenkoasten van de club 

derde zaterdaa van 
januari, aaart, aei, 
septeaber, noveaber. 

Redaktie-adres en inforaa 
ties over paperttare etc. 

Uillea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriapen/lJstel. 
Tel.: 01807 - 19881 



De vereniging is volledig onafhankelijk, is ttatutair op- 

gericht en ingeschreven bij de Kaaer van Koophandel en Fa- 
rieken voor Hollands NoorderkNartier te Alkaaar, onder 
nuaaer 634305. 



Voorzitter: 

Rinus Vleesch-Dubois 

Fl. Night ingalestraat 212 

2037 m Haarlea 

Tel. « 023 - 330993 

Penningaeester: 
John F. van Sprang 

Tulp 71 

2925 EU Kriapen/IJssel. 
Tel. : 01807 - 20589 



Sekretaris: 
6ert Klein 
DiedenHeg 119 
6706 CM Oageningen 
Tel.: 08370 - 236iil6 

Redaktie DE 6502 KENNER: 
Uillea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kriapen/IJiiil. 
Tel. : 01807 - 19881 



Leden: 
Adri Hankel 
Erwin Visschedijk 
6ert van Opbroek 
Nico de Vries 
Erevoorzitter: 
Ereleden : 

Lidaaatschap : 



(05490 - 51151 ) Hardt«re/5oft«are/DOS65 
(05490 - 71416 ) HardHare/softNare/00865 
6502/68000 

HardMart/foftHare/PET 



(01729 - 8636 ) 
(010 - 502239) 
Siep de Vries 
Mm. H. de Vries - Van der Uinden 
Anton Mueller 



voor 1986: HFl. 
voor 1987: Hfl. 
Buiten Europa: 
voor 1986: Hfl. 
voor 1987: Hfl. 



45, « 
50,- 

109,50 (incl.transfers) 
114,50 (incl. transfers) 



DE 6502 KENNER is een uitgave van de KIM Bebruikers Club 
Nederland. Het blad Hordt verstrekt aan leden van de club. 
DE 6502 KENNER Mordt van kopij voorzien door leden van de 
club, bij de opaaak van een publikatie bijgestaan door de 
redaktie. De inzendingen van prograaaa's dienen voorzien te 
ziin van koaaentaar in de lisiings en zo aogelijk door een 
inleiding voorafgegaan. Publikatie van een inzending bete- 
kent niet dat de redaktie of het bestuur enige aansprake- 
lijkheid aanvaardt voor de tocpassing irvan. Dt inzendingen 
kunnen geschieden in asseably-source-listings, in Basic, in 
Basicode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden tchrijven ook artikelen over de door hen ontNikkel 
de hardMrt en/of aanpattingm daarop. Zij tchrijven tavent 
artikelen van algeaine aard of rugertn op pubhkatitf van 
andere inzendert. 



DE 6302 KENNER IS EEN BLAD VAN EN DOOR DE LEDEN 



Hicro-flOE Atstabler/DiMtitablir/Editor it ten produkt van 
Micro Uare Ltd., gatchrtven door Peter Jenningt en bettead 
voor alle 6502-coaputBrt. Da KIM Bebruikert Club Nad. hwft 
de copyrights ventorven nadat ont lid Sebo Uoldringh de 4 K 
KIH-1 versie uitbreidde tot 8 K KIH-1 versie. Adri Hankel 
paste daze aan voor de JUNIOR. UIUh L. van Ptlt italdi 
een nieuwe 6 K source-listing voor de JUNIOR saaen. 
De iapleacntatit op andere tytteaen dan dt KIN-1 en JUNIOR 
kan cenvoudig gtbeurtn door htt tanpatttn van de I/O-tdrtt- 
ten, Hclka in da tourct-liiting gaaakkilijkt ta vindan zijn 

FATE Foraat-lister/cond. Asteabler/Ttpe-utilitiH/Editor it 
de door ons lid Rob Banen geschreven source-listing van een 
12 K univertatl tyiteta voor da JUNlOR-coaputtr aan da hand 
van hat universale ditk operttino tvttM van dt fa. Proton 
Elect ronict tt Naardtn, nu ottcnikt voor Mtrktn act tapat. 
FATE Hordt baichikbur gtattid att toMtaaaing van Proton. 

D0S6S V2.01 it the nett tyttta of our club, build Hith Elik- 
tor's CPU, m, RAM-cardi and our oNn profMiional Floppy- 
Ditk-Controlltrcard for 88, D8, 40 or 80 trtcki and • tax. 
of 720 Kbytes capacity. For um Mith 6302 or 63C02. 
For Bore inforaation, Mrite to E.J.M. Visschedijk 

Ortkentttyn 299 
NL-7608 TR ALMELO 
The nett D0S6S V2.01 it harditart coapatiblt Mith Elaktor'i 
KTDPUS/EC63 coaputtr, txctpt tha control lircird. 



In de edit let van DE 6502 KENNER Nordtn rtgtlattig atdtda- 
lingen gedaan over da door da club gtorganiiterdt bijNn- 
koatten. Ook Nordtn btttuurlijki aadtMllngan gidaan, nmt 
inforaaties over hatgnn in de handal ta koop It. Laden dlt 
lets te koop hebben of ieta zoekin kunnen dit in dt editiat 
van DE 6302 KENNER bakand taken. Ook Nordtn briavan tan dt 
rtdaktit gepublicHrd, tvtntlt tptcifitka vrtgan van ltdan. 
Dt edities Hordtn taaangntald op batli van nn groot tan- 
tal priorittittn, Ntlkt door ten rtdaktiivtrgtdtring Hordtn 
gthantttrd. Dtzt vtraadtring btitaat uit dt vtitt atdiMar- 
kers zoals in dt colofon vtratld. Hat aantal inzandingtn it 
arottr dan in ten tnktlt tditit van alniaatl 48 pagina't li 
te verwerken. Hiardoor kan htt voorkoaan dat atn inzandlng 
eerst na enige tijd kan Horden gapubllcNrd. 



Advertent ies : Tarieven op aanvraag bij de redaktie, 
DE CLUB HEEFT BEHOEFTE AAN HEER LEDEN. HIJ WILLEN MEER AAN KUNNEN BIEOEN DAN NU AL HET BEVft. 18. HERF DAARON EEN LID 
yiLT U EEN PRIJSLIJST ? STUUR DAN EEN 6EFRANKEER0E ENVELOP AAN HET REDAKTIE-ADRES. 
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De 6502 KENNER is een 
uitgave van de KIM gebrui- 
Imm Club Nederland. 

fldres voor het inzenden 
van en reakties op artike- 
len voor DE 6502 KENNER* 
Uillea L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Kritpen a/IJssel 
j lei. ! 01807 - iSSai 

^ Haste ■edeNerkers: 

Uillea L. van Pelt 
Gerard van Roekel 
Frans Steehuijzen 
Coen Boltjps 
Freelance tedewerkers: 

Rob Banen 
Fred Behringer, (Gertany) 
pridus Jonkian 
Gert Klein 
Roger Langeveld 
[ Marc Lachaert, (Belgiui) 
p%rnando Lopes, (Portugal) 
Frank Manshande 
Gert van Opbroek 
Leif RasMussen, (SMeden) 
Ruud Uphoff 
Frans Verberkt 
Hertan Zondag 

Vertaalwerk: 

Fred Behringer (Gertany) 
Uillea van Asperen 
Frank Bens 
Albert v.d. Beukel 
Rene Hettfleisch 
Jaap de Hoop 
Coen Kleipool (France) 
Maarten van Lieshout 

Gehele of gedeeltelijke 
overnaae van de inhoud 
van DE 6502 KENNER zonder 
toesteMing van het be 
stuur is verboden. Toepas- 
5inq van gepubliceerde- 
prograMa's, hardNare etc 
is alleen toegestaan voor. 
persoonlijk gebruik. 

DE 6502 KENNER verschijnt 
6 X per jaar en heeft een 
oplage van 500 exenplaren 

Copyright (C) 1966 KIM* 
GeoruiRers Club Nederland 



De voorpagina is de D0S65 
controllerkaart. ontxik- 
keld door Ad BrouNer. 
CAD/CAM! E. Visschedijk. 
I.S.*. : A. Hankel 
Fotogr.s Fr. Visschedijk. 

I.v.a. auteursMetgeving 
aanvaardt de redaktie 
geen aansprakelijkheid 
voor inzendingen. Tenzii 
anders aangegeven, dient 
de inzending afkoastig te 
zijn van dt. 4lSEpiir. 



CONTENTS OF DE 6502 KENNER NO. 46, OCTOBER 1986 VOL. 10/NO. 5 



Uitnodiging Ledenvergadering/Landelijlue Bijeenkotst IS 

Van de redaktie 



COMMODORE 
Gerard van Roekel 



Fred Behringer, Senuny 

APPLE 

Frans Verberkt: 
Hans Bosch 
AIARI 

RenFSpeksnijder 

ACORN 

Kilil Odon ' ' " 

0CT0PUS/EC65 
CeTTIasiiusien, Dentark 
Marc Lachaert, Belgiui 



SPRITES OP DE COMMODORE 64 

BITPATROON VOOR DE C-64 

Tip: 0 IN DATfl-RESELS PLAATSEN 

DISKDRIVE TIP VOOR C-64 

DE CBM-64 ALS TYPEMACHINE 

TIPS AND TRICKS C16/PLUS 4s fl CURSOR FOR 'KT' 

APPLE-shorts ' ■j'"'"' '; ' 



LOOK 



V I,'- 



8. 



9. 



Ronald Heriens 
Fernando Lopes, 
Albert v.d. Beukel 
Coen Boltjes 
J. A. van bken 
M0N/D0S65 
Brii~3in9ruine 
Peter Roessingh 
Jean de Noyette, Begiu* 
Peter Lasker 
JUNIOR hexd isplay 
iaaijMKers 



Block Graphics on EC65: SCREENDUMP 
PATCH ON DR. TIETSCH'S COPIER PROGRAM 
TROUBLES WITH MICRO-ADE AND ELEKTOR'S OCTOPUS 
PATCH IN THE 0CT0PUS/EC65 STANDARD MONITOR 
PATCHES ON DISK 5A (ORIGINAL OSI V3.3) 
SOLUTION OF MICRO-ADE PROBLEM OF CONTINUOUS ERRORS 
DIRECTORY DISK 1 'SYSTEM LOYS DISKETTE' 
MODIFICATION VDU CARD 0CT0PUS65 
BELL-ROUTINE FOR 0CT0PUS/EC65 WITH BASICODE n 
PROBLEMEN MET DE 0CT0PUS65 MET RS232 PRINTER 

A MACROLOADER AND SAVER FOR ED 

PROGRAM CURBACK REPOSITION CURSOR OF CRTC UN 6M5 

SEARCH. OBJ 

BASICODE 2 (deffi 1) 



POSVAL SCHAAKMONITOR part 3 (end) 
POSVAL Mijzigingtn in gipublicnrdi listing 
MflLFUNCTION DISPLAr JUfllOR 



10. 
11. 
12. 

13. 



Ronald Herwm 
JUNIOR 

Jin 7erni««en 
Ronald Hen»ens 
HARDWARE 

Bn3ri5 Gregory, England 
Phons Bloewn /.;- ' 
FORTH 

GerrKlein 
Gert van Opbroek 
DIVERSEN 

BirrRiietters/Bart van Pelt BASICPR06RAMMA COMBINEREN 2- EN 3-LETTERWOORDEN 
Bert van Opbroek ... CORRECTION ON THE 68000 ARTICLE 6502 KENNER 4 1986 

Frans Saeehuijzen ... LETTER TO THE EDITORi PL3/4 STRAPS PROBLEMS CPU CARD 
VRAflG EN AANBOD 



CHANGING THE 6502 BY A 65C02 PROCESSOR 
ERROR MESSAGES MICRO-ADE, ADAPTED FOR JUNIOR 

AN INTERRUPT DECODER FOR THE 6809 
JUNIOR BEKENT KLEUR 

FORTH 65C02 ASSEMBLER 
FORTH SCREEN EDITOR 



2. 
1. 

3. 
11. 
11. 
18. 
18. 
33. 



24. 
49. 

17. 



5. 
8. 
19. 
30. 
30. 
19. 
21. 
17. 
22. 
31. 

9. 

17. 
46. 
41. 

18. 

i 

18. 

23. 

6. 
13. 

33. 

37. 

12. 
24. 
25. 

20,23,40. 
Redaktioneel: 

De nu voorliggende editie kemterkt zich door een enoniff hotvtelheid korti berichtin dii hun plaiti 
hebben kunnen vinden op lege plekken op de pagina'i. Opvilltnd diarbij is htt iniio NiarMt itn int- 
Hoord geeft op de in de vorige editie geplaatste cproep op pagina 49. Wt hebbtn ook Nttr Nit rui«ti 
gevonden on de aandacht neer wat te richten od de progra»«eertaal FORTH en hoptn tcht dat tr IwJen 
zullen zijn die op dit gebied hun proqratfti'i in dt copy-buffer van dt DE 6502 KENNER lullin brtngin. 
Het bestuur heeft het voorstel van fitt digtlijki btituur on gnn itindi «Mr in tl rlehttn op dt RCC- 
dagen overgenoten. Zoals uit de vorige editie al kon worden gelezen, de HCC heeft geteend de clubs, 
die altijd gratis de HCC-daqen konden bijwonen, thans forse bedrigen te «otten vragtn, Dat dii dagen 
ons al enor« veel geld kostten, en nu ook zo'n Hfl. 1200,00 extra, heeft ertee gtliid dit mc ieen- 
den op een onverantwoorde dianier gelden van de leden te betteden, terwijl het konkrett rMultiit lan 
nieuMe leden, hoewel met precies teetbaar, met opzienbarend ts. Ik neen tt sogen stellin dat nu op 
de schouders van de individuele leden een zmrc last wrdt gMpI M •■t-ttllife lOtlfW Hllf iftWiiMI 
t*egen o« nieune leden te Ninnen. 

We hebben het idee dat de OCTOPUS coiouter van Elektuur ons in ds kottndt tljd nog hnl Nit stof tot 
publikatie gaat geven. Er is een redelijk vergelijk net de JUNIOR iogelijk. tltktuur hMft htt aan dt 
club overgelaten nog de nodioe verbeteringtn in dt software aan ti brengtn. Wat dit bttrtft kan ik dt 
verzekering geven dat op dit gebied nog de nodige artikelen zullen verschijnen. Marc Lachaert heeft 

»l^_P|Cr9-'iil Wier sawifen fi»>ft«f?n, ei zo is e-r w *»cr^s^ yf.O, -^^^*tct9%.9sm < iillsi. 



! 
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Mm 



i zaterdao IS fMVNber 19S6 
I KerkgebouHi 'DE BRONV Tel. : 01807 - 16287 
HobbtMlaan 1, ID KriMpen aan den IJssel 



- wr auto - kowndt uit de richting UtrecM 

folg aotbMg Utrecht-RetttrdaA^rdrecht tot de afslag 

mRffiliaf Iteming Cappellv aM im TlnKf vwn linksaf 
vnder de Meg naar de Brieneiword door. Houdt richting 
Cappelle aan den Utwl aan tot de rotonde Capelse plein, 
Naarop (zie richtingaamiijzerf) recttsaf riditing Schoon- 
hoven en Kriepen aan den IJisel. Deze neg voert over de 
Algerabrug aet de sluizen die het eerst geboimde objefct 
zijn van de Deltanerken. Een ttukje verder ontioet U 
stoplichten. 6a hier linksaf de NieuHe TiendNcg op en volg 
deze tot de volgende rotonde, naarop rechtsaf de Burg. 
{^Iberslaan, dan de eerste zijstraat rechts, de Jan van 
foyen-straat in, dan de eerste zijstraat rechts de Hobbe- 
•alMR tot eind. Daar kunt U parkeren. Aan de 
NKfttiitim ftel vlaike kerkgebouN (zie pijl op kaartje bij 
no. 30). 

kwMiidi |it de richting Raittrdae 
wli IN r dHhiittento. Khooppunt LeidiehMidM pantren. 
wraer iijMii|Jinirecht via Brienenoordbrug aanhouden. 
En VMr H wiimMwrdbrug afslag rcchti nur Cappelle aan 
iM tSiMl mm. Vervolgen als hicrbovcn. 

iMmde uit de riehting Ratterdaa of Dordrecht 

Richting Capelle aan dm Utsel unhoudcn en verder als 

bij eerste faescbrijving. 



PROGMMM 

10.00 OPENING LEDENVERSfflERINB 
10.15 CONKPT- BE6R0TIN6 

aftredend en herkiesbaart lid 6ert Klein 

lid Gert van Opbroek 
lid Nice de Vries 

(kttididatin kunnen schriftelijk Mntcn aan^aeld 

bij het sekretariaat of eondeling voor de aanvang 

van de vergadering). 

RONOVRMS en SLUlTlNG. 
12.00 LUNCH. 

too LEZIN6 EN DENOi Mri Hankel. De Laser Printer. 
00 INFORMEEL 6EDEELTE. 

In het inforeeel deel Nordt ieder in de gelegenheid 

Sesteld kennis aet elkaars systeeen te aaken. 
REN6 DMROM UW SYSTEEM HEE * VERLENBXflBELS !.[] , 
Heeft U hardmre aan tc bieden? Doe dat op etrt tfgin 
tafel. 

HNft U MftMrt »lf ofitNikkild? BNf dat un tfl 
redaktie tec. 

Kopicren van toftKart twarop enige vom van auteun' 
rcchtcn rutttn it binnen onzc gclnttrm gam ge- 
bruik. Doe dat ook niet op de bijeenfcowt. 
IIM Slititing. 

Conmi^lM tigm bitiling 
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©PRITEB OR Di 

» opzet van dit prograina is niet echt als les«ateriaal 
Jdoeld, naar gewoon oa nat inzicht te krijgen in norMie 
fi oulticolor sprites. He beginnen let de opbouw van een 
jrite. Een sprite is opgebouMd uit 3 bytes horizontaal en 
1 bytes vertikaal. Dus een sprite bestaat uit 3 naal 21 
irtes = 63 bytes. Een byte is ingedeeld in de volgende ge- 
.tilenTeeks* 



it 1 



it 8 = 



128 
64 
32 
16 
8 
4 
2 
1 

255 



1 2345678 1 234567B 1 2345678 



2_J 

M 
M 

O 



I X I X > X X X x X a X 



xxxxxxxxxxxxxij; 



xxxxxxxxxxxxxs 



IXXXXXXX1X 



£L_ 
Z_ 
fi_ 



xxxxxxxxxxxxxx 



(XX 
■ XX 

IXX 
IXX 

XXX 



X X X X X X X X X X a X X X X X 



xxxxxxxxxxxxxx xlxlx X X 



XXXXXIXXXXXXXX) 



Sxx 



255 

255 

255 

255 

255 

255 

255 

255 

255 

253 

255 

255 

255 

255 

255 

255 

255 

255 

255 



255 255 
255 255 
255 255 
255 255 
255 255 
255 255 
255 255 
255 255 
020 255 
000 255 
000 255 
000 255 
255 255 
255 255 
255 255 
255 255 
255 255 
255 255 
255 255 
255 255 
295 255 



EKENiN© smt EEN -1- KLEUREN SPf^XJE 

■5'-.;. • ^.-J^" 

•Ik getal van 1 byte (8 vakjes) kan nooit groter zijn dan 
?55. Zoals U ziet in de -1- kleuren sprite tokening, zijn 
]ijna alle vakjes gevuld, behalve in het •idden, daar ziet 
J een gat (ook straks bij de teerkleurensprite). 
]« een figuurt ie te i»1m Mtt U vakjes invullen zodat de 
rereiste afbeelding ontstaat. Oe getallen van de ingevulde 
vakjes telt U per 8 bij elkaar op. Hierdoor ontstaan 63 
/erschillende getallen, Nelke in het geheugen ge'POKE'd 
loeten Horden. De volgende tabel geeft de deciMlft adrts* 
sen aan van sprite 1 t/« 4. 

teginadres sprite 0 is 11*64 = 704. Eindadres! 704+63= 767 
Beginadres sprite 1 is 13»64 = 832. Eindadres: 832+53= 895 
Beginadres sprite 2 is 14»64 = 896. Eindadres: 896+63= 959 
lt|Mres s|]fite 3 is iS(64 > 960, Eindadres: 9604€3sl023 

tiet vorten van de sprites en het 'POKE'n op de juiste ge- 
heugenplaatsen is ^chter niet voldoende. De sprite «oet 
Dok aangezet Morden, Dit gebeurt door een getal te '^n(E'n 
Dp adres 53269 en wel als volgt: 



commodore: &^ 

P0KE53259,1 voor sprite 0 
P0KE53269,2 voor sprite 1 
P0KE53269,4 voor sprite 2 
P0KE53269,8 voor sprite 3 

Oe getallen achter de koMa kunt U ook optellen Maardoor 
•eerdere sprites zichtbaar zijn. Bijvoorbeeld P0KE53269,12 
Dan staan sprite 2 en 3 aan. Doet U daarna weer 
Pt]KE53269,8 dan is alleen sprite 3 aan. Als laatste. Met 
de plaats van de sprite op het beeldschert bepaay».Mi«en, 

,.; ly'r-'.K •.■<<¥ r^-M. A'»5%V' r„ \ - 5 *: ruK ic ■ 



S324S 
532S0 
S32S2 
53254 



53249 
53251 
53253 
53255 



In ons progratta gebmikm Me sprite 0. Horizontaal heeft 
U van 0 t/e 320 plaatftn vertikaal van 0 t/a 200. Hori- 
zontaal noenen He X en vcrHkaal Y. flls U de sprite in het 
•idden van het beeldscheni Milt plaatsen, dan kunt U voor 
sprite 0 horizontaal P0tC53248, 120 geven en vertikaal POKE 
53249, 100. 0« de sprite over net beeldKhera te laten be- 
tteoen, kan aen gebruik eaken van een subroutine. Dit geldt 
ooK voor de joystick. 

L 2345679 1 234567B 1^345678 



0J « 



B2. 



03^ 



xxxxxxxxx 



!!11!!!33H!!!!3!!33!! 



xxxxxxxaiaa; 




170 
170 
127 
127 
127 
127 
085 
085 
085 
085 
085 
085 
085 
085 
127 
127 
127 
127 
127 
170 
170 



170 170 
176 178 
255 253 
255 253 
255 253 
255 253 
085 085 
085 085 
000 085 
000 085 
000 085 
000 085 
085 085 
085 085 
255 253 
255 253 
255 253 
255 253 
255 253 
170 170 
170 170 

SPRITE 



De tweede sprite tekcning is een Merkleurcnspritc. Ik 
vertelde in net begin dat nn getal of dita is opgtbouNd 
uit B vakjes. Bij de -1- kleurenspritc aoitin alle vakjes 
die op hi! schere zichtbaar aoetin lijn, ingivuld Mordin. 
Bij de meerkleuren gaat dat anders. Van de 8 vakjes horen 
er stNds 2 bij elkaar. flls 1 van di 2 vakjes, of biidt, 
zijn ingevuld, dan worden iltijd 2 vakjes zichtbaar ge- 
aaakt. De vakjes 1+2, 3+4, 5+6 en 7+8 horen bij elkaar. De 
coaputir kijKt nanclijk Nelke vakjes zijn Ingevuld en 
kiest daaraee zijn kleuren op de volgende aanier? 

Multicolor - 0 = P0KE53285 
Multicolor - 1 = P0KE53286 
Eigenkleur = P0KE53287 t/a 53294 



[OnPUTER 



In deze drie 'POKE'S kunnen dus de kleuren 0-15 gePOKEd 
Horden. Even nog een keer herhalen. Als van de sprite de 
vakjes die bij elkaar horen de rechtse is ingevuld dan 
Horden beide vakjes zichtbaar net de kleur uit P0KE53265. 
Rls van de vakies die bij elkaar horen de linkse is inge- 
vuld, dan Hordt voor sprite 0 de kleur uit P0KES32fi7 ge- 
haald. Oi aan te geven dat de co«puter Nerkt aet aeerkleu- 
ren wordt sprite 0 - 7 in P0KE53276 gezet. Hier geldt ook 
Heer, dat de getallen bij elkaar opgeteld kunnen Morden. 

100 PRINTCHR*(147) 

110 REM PROGRflMNfl VOOR SPRITES 

120 WRIflBELEN VOOR KLEUREN 

130 REM SNELHEID VAN SPRITE 0 

140 REM STflRTPLflflTS X EN Y 

150 fl=0:B=l:C=2:X=l^:M4esf«I 

160 P0KE53264,^0 J 

170 REM MULTltOLORflllWHf lilt 

180 P0KE53276J -v -r .. 

190 REM iNLEz^N mmmmmmm m 

200 F0RI=OT062 
210 REflDQ 
220 P0KE704+I,Q 
230 NEXT 

240 DflTfl 170, 170, 170 
250 DflTfl 170,170,170 
260 DflTfl 127,255,253 
270 DflTfl 127,255,253 
280 DflTfl 127,255,253 
290 DflTfl 127,255,253 
300 DflTfl 127,255,253 
310 DflTfl 085,085,085 
320 DflTfl 085,085,085 
330 DflTfl 085,000,085 
340 DflTfl 085,000,085 
350 DflTfl 085,000,085 
360 DflTfl 085,085,085 
370 DflTfl 085,085,085 
380 DflTfl 127,255,253 
390 DflTfl 127,255,253 
400 DflTfl 127,255,253 
410 DflTfl 127,255,253 
420 DflTfl 127,255,253 , ^ 
430 DflTfl 170, 170, 170 ' 
440 DflTfl 170J70, 170 
450 REM SPRITE 0 UOROT OPSEHflflLD 
460 P0KE2040,^11 
470 REM SPRITE 0 m 
480 P0KE53269, 1 

490 REM vergr6ot mm 0 mnmm. 

500 P0KE5327!,1 

510 REM VERGROOT SW^ITE 0 VE«lTIKfl«. 

520 P0KE53277,1 ^-^ ^ 

530 REM KLEURENSPRf?^ • 

540 GOSUB 600 





550 REM KONTROLE JOYSTICK 

560 G0SUB740 ' ' 

570 REM POSITIE SPRITE 

580 G0SUB910 

590 GETfl$: IFfl$="S"THENG0SllB710:60T0540 

600 REM KLEUREN VERflNDEREM VAN SPRIIE 0 

610 fl=fl+l:IFfl=15THENfl=0 

620 B=B+l:IFB=15THENB=0 

630 C=C+i:IFC=15THEiC=0 

640 REM MULTICOLOR 0 

650 P0KE53285,fl 

660 REM MULTICOLOR 1 

670 P0KE53286,^B 

680 REM SPRITE COLOR 0 

690 P0KE53287,C 

700 RETURN 

710 REM ROUTINE SPRJTES UIT 
720 P0KE53269,M'^ST 

730 RETURN 

740 REM ROUTINE JOYS'^ICK 

750 J=PEEK (56320 : N=JflNDl : 2= JflND2 

760 W=JflND4:0=JflND8:VK=JflND16 

770 N0=N+0:ZQ=Z+0!ZU=Z+W:NW=N+W 

780 IFZ=0flND0=8flNDy=4THENY=Y+T 

790 I'^W=0flNDN=lflNDZ=2THENX=X-T 

800 IFN=0flND0=8flNDW=4THENY=Y-T 

810 IF0=OflNDN=lflNDZ=2THENX=X+T 

820 IFN0=0THENX=X+1:Y=Y-T ■ . 

830 IFZ0=0THENX=X+1:Y=Y+T . |- 

840 IFNW=0THENX=X-1:Y=Y-T 

850 IFZW=OTHENX=X-i:i=Y+T 

860 IFVK=0TH£NFQRI=15£0TQ1547STE?-1 

870 P0KEI,81:PRINTCHR$(147):nEXT 

880 REmk 

890 REM PLflfiTSBEPflLiNG X EN Y VflN SPRITE 0 

900 REM G^ENS BOVE^J 

910 IFY(50THENy=50 

920 REM G^EnS ONDER 

930 IFY>210THENY=210 

940 P0KE53249,Y 

950 REM KONTROLE LINKER EN RECHlESZIJDt 
960 P=PEEK (53264) flNDl 
970 IFP=0THENG0SUB1010 
980 IFP=lTHEN1060 
990 RETURN 

1000 REM GRENS LINKS 

IF)((20THENX=20 .ov . ■ • 
!'^)O252THENP0KESIii4>ilf-l*!© - ■ 
1030 P0KE53248,X 
1040 RE^L'W 
1050 REM GRE^S RECH^'S 
1050 I'X>40'H£MX=40 , 
1070 I-X{'^KENPOK£5S64*0:X»255_ . r 
1080 P0KE53248,X'^ ^- ■--■V ' ■ ' 
1090 RETURN 



1010 
1020 



FOR APPLE : 10 fl»="JflCKZIP":FOR H = ! TO 7;CflLL -198:F0R S = I TO l6»(flSC(w:DI)flt,H))-64INeXT S,M 

FOR APPLE : 10 PRINTCHR$(flSC(CHR$(flSC(CHR$(flSC("F")/(flSC("P")/8)))))):60T0 10 

FOR APPLE : 10 HGR2:FQRY=0T0191:P(1KE 228,C:C=C+l/9-256»(C=255) 

30 naOT 0,4 TO 279,43ti;T ^ • 

FOR APPL£ : 10 H6R2:F0R X>0 TO SUle ^IIMPLO? ifiim •'30fi2:NEX^ X 



E^E Ei □ e 



KEMNER 




LEIF RflSMUSSEN 
PflRKUEJ 1 
4534 HBRUE 
DANNRRK 





y 



FOR 



Oe 6562 KEHHfR 



^1 



y 



To be able make a screen dump of the characters in £C65's character 
gsetiorator (ESS523), it is necerssary first to turn the 8*8 hoae iMi^ ma- 
trix "upside down". This is done with the following basicprg. Then save 
the new "printer" hex dump on disk and use it together with the follow- 
ing maohine prg. in ootmeotiaQ wit& fexk- -'GRAFIK" or "FDLiiSlii- Jft lCZ. 



1 REM This prg. convert a 8*8 matrix hex dump from VDU character- 

2 REM generator, to printable chr.s, in Epson's graphics mode. 

3 REM Store the Oharaoter hex dump on adr. $BOOO-$BFFF (2 TRACKS) 

4 REM The converted hex dump will placed on adr. $A000-$A800 (1 TRACK) 
10 DIMA( 7, 7 ) : FORE=OT0255*16STEP16 : F0RI=7T00STEP-1 : Y=PEEK( 45063+E-I) 
20 FOR J=7TO0 STEP-1 : A(I, J)=0: IFY>=2"JTHENY=Y-2"J: A( I, J) =2*1 

30 NEXTJ:NEXTI:FOR J=0T07 

40 X=0:FOR I=0TO7 : X=X+A( I, J) : NEXTI : POKE40967 + ( E/2 ) -J, X: NEXTJ : NEXTE 



1 3/ 04 /■* 



4720 ■ 
OOlOl 
0020 I 

; oosol 

"•^ &0401 
OOSOl 
OOAOl 
0070I 

oiooi 

oi tOl 
OlZOl 
OlSOf 

O I 70l 

oiaoi 
oaooi 

<)230l 
«8SO ■ 



0S4OI 
0280 I 
62AO • 
02 70I 
02aOl 
02VOI 
OSOOl 
0310I 
0S20I 
03301 
0340I 
OSSOl 
03«0 I 
0370I 
03B0I 



e'4'O'e • 

04i0i 
0420 • 

o#so> 

d4*Ol 
0470 I 

04aoi 

0«VOf 

'.ottiNO'i 

OS3iOi 

oasoa 



ICRKBN-DUnP ON 



2322 
2343 
2BAV 
2D73 
OODO 
OOD2 
OOD4 
0008 
OOBO 
OOOO 



3A80 

SAaz 
SAaa 

SAB 7 
SABA 

SAao 

3AVO 
3AV3 

3A»4 
3A<»« 
3AVB 
3A9A 

3AVC 
3AVe 

SAAO 
3AA3 
3AA* 
3AA7 
3AAV 
SAAB 

wmm 

'SHU'S 

3AB4 
3AB6 

3ABA 
SABB 
3ABC 
SABE 
SABF 
SACO 
3Aet 

SACa 



(i» m 2B 

Av oa 

BD 22 23 

20 73 2D 

IB 33 IB 

IB AC OK 
OO 

A V OO 

BB DO 
AV 

BB Dl 

A2 OO 
BA D4 

BD AO 3A 
20 43 23 
KB 

eo 07 

DO FB 
FO 07 

on i» 

»M 6>i ao 

AO OO 
»t DO 
MB 

OA 
OA 
OA 

as D2 
va 

4A 
4A 
4 A 
4A 



OUTABL. 

FN I N T 

SKXPOC 

BTROUT 

BCRCNP 

TABPNT 

KANTEL 

BAVKY 

TABHI 

•CRKi.0 



*2322 
4>2343 

• 2BAV 

• 2D73 

• OOOO 
aCRENP 
aCRENP 
aCRBNr 

• BO 

• OO 



OBI OUTPUT TABLE 
PRINT CHR. IN A 
TEBT PGR VOC XN PRXHT 
PRINT CHR. BTRINB 
aCREBN POINTER UO 
'*-02 TABLE POINTEIt 
■»04 CHR. COUNTER 

♦■^ «*.ve-' Y-i»«»i»T«i» ■ 
•BR'KCW 'iCVtH A:T mmmm> 



-BKIP I.P-B-- 



LDAIH 0*O 
BTA BKIPOC 



UDAin mou 

8TA OUTABL. 

JBR BTROUT 

HEX IBSSIBll 



ME DO 'NT WANT SliT«A LP' 
--PRINTER ON 



PRINTER ONI I ! 

LINE PEEO'24/21*" .TABtl 
lACOKOO 



NEWLXN 



XNILIN ' 



NEXKAR 



LDAIM BCRBL.O 

BTA BCREMP 

LDAIH BeitKHt 

BTA i|#<|i!MP 

LDXXM •OO 

BTX KARTEL 



LDAX 
JBR 
INX 
CPXXM »07 



INILIN 
PRINT 



--XNITI ALIBE --- 

MB IN BY •Eseo 

♦ Ol 

--BTART OP HAIN PRB. 

CHR. COUNTER-O 

--INIT. PRINTER 

LF| BRAPH.BELi *40 DOTB/LINE 



BNE 
BEB 

Hex 



LOYtn 
LOAX Y 
T*Y 

ABLA 

ASLA 

ABLA 

BTA 

TYA 

LBMA 

LBRA 

L8RA 

LBRA 



laEN 
NEXKAR 

OAODl B2AO 1 B002 



,„._»,.^„„_„»|KB;T ABCI: 

menmmp wer »bc x x 



-•••-HMLTII»l.V • 



NR. PROH BCREEN FX. 
I • TABHX 



• 31 



I 



TABPMT TABEL, PSIMTKIt .Fll« •»» — 



E^E 5 □ S 



K! 



0002 



O 5 4 O 1 


3 A C 3 


4 A 






OOSO 1 


3 A C 4 


1 ti 






09 AO t 


3 AC 9 


£» f 


B O 




O O 7 O ■ 


3 A C 7 


O B 


D 3 




O 3B O ■ 










o o ■? O ■ 


3 A C f 


A O 


O O 




O & OO ■ 


3 AC B 


13 1 


O 2 




O 6 1 O I 


3 A C D 


B 4 


D 9 




O ^ 2 O 1 


3 A C F 


2 O 


4 3 


2 3 


O 3 O 1 


3 A D 2 


E it 


D 9 




O & 40 1 


3 A D 4 


A 4 


D 9 




O 9 O ■ 


3 A D b 




^ ? 




O 4b 4b O ■ 


3 A D 0 




r 1 




O A 7 O 1 










OAOO ■ 


3 A D A 


A 3 


DO 




O 6 Y O ■ 


3 A D C 


1 O 






O 7 O O 1 


3 A D D 




O 1 




07 I O t 


3ADF 


es 


DO 




O 7 2 O 1 


3AE 1 


AS 






O 7 3 O 1 


3 AE 2 


AO 


D 1 




O 7 4 O 1 


3 AC 4 


b'9 


O O 




O 7 O O 1 


3 AE£> 


BS 


D 1 




O 7 & O 1 










O 7 7 O ■ 


3 AEB 


CO 


a o 




O 700 1 


3AeA 


DO 


O 4 














oeooi 




FO 


OA 




0 B 1 O 1 










oa20i 


3AFO 


E<> 


D4 




OBSOl 


3AF 2 


A9 


D4 




0840 • 


3AF 4 




SO 




0B90 1 
OB60 1 


mi n 


'ft- 


:"i ( 


0B70 ■ 










oaeoi 


3AF A 


A"? 


4S 




oe vo ■ 


3 AFC 


BD 


A^ 


za 


Of oo ■ 


3AFF 


A» 


O 1 




Of 1 o ■ 




tm 


a 2 




Of 20 I 










Of 30 a 











FUl-l. t N 



L6R A 




cue 




A DC I n 


T ABH I 


BT A 


T ABPN T 


L D V I M 


• CO 


l_ D A I Y 


T ABPNT 


BT Y 


SAVE Y 


J SR 


PR INT 


INC 


SAVE Y 


L D Y 


S AVE Y 


CP Y I M 


« O S 


BNE SKRIV 


l-DA BCREMP 


CL. C 




ADC I n 


• O 1 


BT A 


BCRENF 


T AY 




LDA 


SCRENP 


ADC I M 


»oo 


S T A 


BCRENP 


CPY I M 


*BO 


BNE 


FULL I N 


CMFIM 


• EF 


BKQ 


8UU T 


I NC 


K ARTEU 


l-DA 


KARTEL 


CMP t M 


«90 


BNE 


NE X K AR 


SCO 


NEWL I N 


1- D A t n 


«4B 


BTA 


BK I POC 


l-DA t n 


• O 1 


BTA 


OUT ABt- 


RT8 





TASEL BEOIN ADR. HIBYT 
♦Ol FX. VBIBB-BEOIN OF CHR.«31 
■-PRINT ONE CHAR. 



OET ONE OF EIQTH FROM TA8L.E 
AND Plft^SfT' IT 

--MEXT CHAR. 

iNCREneNt vcMScti pointer 

+ o 1 



-END or SCREEN 7- 



END OF BCREEN-SEFHO 



--BO CHAK. 7 

INCREMENT CHR. COUNTER 

MAS ElOTHY CHR. 8 BEEN PRINTED 
IF NOT BET NEXT CHR. 

IF YES, SEND L.F BEFORE NEXT OMR. 

--F I N 1 BH 

RESTORE DOB PRINT ROUTINE 

PRINTER OFF 
BACK TO BA8IC 



>>> Error in OOOO m t « t •fn«n t ( • > 

>>> Dp-Cadai «BOOO - •BOB4 / VSABO m.»9:0* 
>>> A«»*«bl»cl by A«Slt4 / 3,« 



0133 Byta* / JDt P«gs<a> 



m INTERRUPT DECODER FOR THE 6809t 

■ M ■ ■■■ ■ mm mm mmu mmm m-» ■»»"m»m...-i»-i»..».». 
f ■SflSCII.III'll'llMllill'V'lllllVIIIIIII 

Author: Andrew Gregory, England 

Systea: Solascan Hicro-Systeas Ltd. syste* based on 8-bit 
Hetorola MC £809 (Elektor bus coapatible) 



1 BA 


BS 


N. P. U. -state 


1 COMKNTS 1 


1 0 


0 


Nsrial rtoming 


1 1 

1 1 


1 0 


1 


Interrupt Reset 
acknowledge 


1 Occurs after a hard- 1 
1 Nare or softtiare in- 1 
1 tffrupt 1 


1 1 


0 


^nc ack(MNl«igt 


1 Occurs while waiting 1 
1 for an interrupt 1 
1 during SYNCHRONISATION 1 
1 instruction 1 

1 1 


1 1 


1 1 


1 Halt on bus grant 


1 Controls D.H.A. 1 

1 1 



The 6flOS and 6809E ticroprocessors have two output 
control signals, the Bus Available (BA) and Bus Status 
(BS) signals. The table above shows what the signals indi- 
cate (this information cows froa the Motorola data sheet) 
The idea behind this circuit is to use the interrupt ack- 
nowledge state to latch the address lines whenever an in- 
terrupt vector is fetched and display the* on an LEO-dis- 
play therefore indicating which interrupt laait DCCttrrMl. 
To see this consider the interrupt tiling: 



The four i.p.u states are decoaed by ICl in the circuit 
shown. After an interrupt pin 6 goes low for two cycles 
while tne high and low bvtef of the interrupt vector are 
fetched. This enables the latch IC3 which triggers on 
positive trantitiont of the E clock which occur when the 
address ii valid (tquivtlant to the pnau 2 clock of « 
r6S02). Of the addrm AO - AIS only Al, A2 and A3 are 
latched. The latch outputs arc decoded by IC2 and display- 
ed on a LED bar graph. The LED alight indicates the last 
interrupt as shown in the table. The reaaining outputs of 
ICl are alio displayed givina the current Lp.u. state 
(NorMl running. Sync acknowledge or Halt). The LED't can 
be driven directly becauM ICl and IC3 have activi Isw 
open collector outputt. 

A3 A2 Al 



FFFO + 


FFFl 


Not used 


0 


0 


0 


FFF2 + 


FFF3 


SWI3 (Software interrupt 3) 


0 


0 


1 


FFF4 + 


FFF5 


SUI2 (Software interrupt 2) 


0 


1 


0 


FFF6 + 


FFF7 


FIRQ (Fast interrupt request) 


0 


1 


1 


FFF8 + 


FFF9 


IRQ (Interrupt request) 


1 


0 


0 


FFFA + 


FFFB 


sun (Software interrupt 1) 


1 


0 


1 


FFFC + 


FFFD 


NMI (Non-aaskable interrupt) 


1 


1 


0 


FFFE ♦ 


FFFF 


RESET 


1 


1 


1 



6 

Si'- 



D 



K E M M E R 



M09 INTERRUPT DECODEft (ACTUAL CIRCUIT) (tested) 



§109 B US 
SIGNALS 



BS 
BA 



® 



IC3 N 

74LS173 



3a 



G. g'2° 



1 




2 




5 


1 


1. 


3 


3 








I"' 

I tk? A 



>l.*STipERflUPT 



I I 

BAR GRAPH 
DISPLAY 



HALT 

SYNC ACKNOWLEDGE 



NORMAL RUNNING 



CURRENT 

MicRei>fioeES50R 

j STXtm 



HERMAN ZONDAG 



STACKING 
REGISTERS 



INTERRUPT — 
(HARDWARE 
OR S OFTWARE) 

1 

BA 



AEieRESS 
■US 



~ y HIGH^ LOW ^ 

) V 

1 f 



VALID VALID 



START EXECUTION 
INTERRUPT 



fetCh interrui>t 

VECTOR 



7 



= 2SM ON ail TiETCH's C0PIE8 ptmm ^ 

Auttwr : Marc Lactiaert. Belgiui 

In 'DE G502 KEHO' issues 43 dnd 44, a very fine acapt- 
ation of the Metl-knoNn OHIO-dishette copier ms publish- 
ed untten by Dr. Tietsch. This version wrks a lot ure 
coafortable Me original IBI version, and I wish to 
congratulate Ir. Tietsch for his contribution to t* Octo- 

Ks softMare. 
fiftttnately I discovered sow 'bugs' in the prograa. 
MhuA CMild Mlie a rm very pc^M^m • . ^"^ > 

In lint m ivaddress of the FLOPPY CONTROLLER is 
iteclar^ as to'bt jffiOOO. This is false. In the Octopus tfie 
controller residKi on addiwailiQM ! u> 

In lines !4S> through 14S9, Br. Tietsdi »riki dams 



•is*-' S ^" *** flriginal code 

;ldaigJ43 ;is in tr» •ruinal code 

:jsr Bm ;set poii^ m SOS coMand 



It sens to K that Dr. Tietsch did not knew very itel the 
significance of those instructions, so for safety, he aade 

coMents' of thn. In fact, these instructiow are very 
laportant for the continuity of an error hanolinq by 

copier' in case of a DOS (read/write..,) error. These in^ 
f ^ intended to fill the DOS error return vec- 
tor ERRVEC (residing on $2fl4F/2fl50) itith the appropriate 
users address to jjhich DOS Mist return after an error. The 
user oust load LSB/MSB of his own address into the fl/Y re- 
gister pair and then perfora a JSR to iriiat Dr. Tietsch 
calls vaguely 'eJfflEMtej DOS coMand*. In fact,^ this rou- 
tlW on $2fl7D a railed it EMFILL) fills ERRVEfc «ith the 
afqiropriate return vector. In this particular case the 
vector aust point on the label LflB13 in line 5080.' So 
change lines 1430 through 1450 into tthat folloMs: 



Idaio LflB13 



;fill DOS error vector with LflB13 
:reMrfc — ) IdY and not IdA !!!! 



The three instructions Mill 
'coeaents' but executable code! 



■wturally no aorv be 



i?v^^ version. Br. Ti^sch prvferrvd a return to BflSIC's 
BEXECi after a succesful cow, rather than OSI's original 
solution af a total rebaot of the systea. This is in fact 
■ ii^ui!**?'' 1» ffM* tut patch described, it 
Mil then also be necessary to mmmi the noraal eIwvec 



Idaia $D7 
Idyia $20 
jsr EKQN 



:fill OmiE with the return vector 
:t« tHI WMI BASIC ERROR handler 



ReMrk that the prograa in Machine Language has been elon- 

relocated too (use CHflNGE optiwi ^ iBjffii) or you can 
either, Mhile reeseabling the M,l. souits, shorten 



«iere a text, in order to recuperate those 9 bytes... 

fl third patch concerns the aaount of tracks to be copied. 
In his published version, tne copier only works on drives 
with a aax of 35 tracks. This is an unusual aaount. and if 
you wish to adapt to anotner drive, you should have to 
Change an other aaount of lines: 



- line 3160 capia $40 for 40 tr, capia $80 for 80 tr 

- line 6490 Idaia $39 for 40 tr, Idaia $79 for 80 tr 

- line 6570 Idaia $39 for 40 tr, Idaia $79 for 80 tr 



and also the texts in lines 1640 and 710. 

=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0=0 

p=»=»^o»»'' o gOT « ge »i i » 'i a ..ii ,i ' e a' n iiio iui' U ..'i «.*o gtFo«ogogo=ogo= 



I A K RM VDOR DE ATDR I 



Mmm mm^ fttm. Nederland. 

Voor aensen die geen scfiakelkaart hebben en toch een aan- 
eengesloten geheugen willen hebben vanaf tOOOO - tlFFF. 

6264 (8 K CWOS) 28 egns 

PIN 1 = N.C. } info 

PIN 2 = fl 12 } info 

PIN 27 = RB } info 

PIN 2B «f S Volt } info 

PIN 20 + 22 -> ra -) ic 8 PIN 11 = ra 

PIN 27 )NW)S-> IC 49 PIN 11 = NWDS 

fllle andere pennen aansluiten op gelijknaaige pennen op 
fltoa board. « » r- r 

Pen 2 3 en 9 van IC 7 uit socket. Doorverbinden aet pen S 

van IC 7. Is (3 van 1 K naar 8 K. 

EvenlHiel aawezige Raa uit Atea vemijaenm (zero page). 

l^^bouM: 

Hen hale IC 20 uit zijn voetje, en lette oit IC in de wire 
wrap voet. 

In net voetje emaast koat ce S2U B K CWS. En dit geheel 

Koat oan in fle IC 20 voet op het Rtoa board. 

Vergeet de CS en de MiDS lijnen met ' 

Gelijknaaige pennen van de 6264 doorverbincen naar IC 20. 

Succes ! 



IC voet 




gaatjes beard 



wire wrap voet 



E 5 □ S 



MON/DOSeS CORICR 

fk wmmmm mm mm mm ep " """"""" 

Author: Bram de Bruine, The Netherlands. 

Systea: H0N/D0S6S, based on Elektor's busconpatible cards and tha 
iFBG Cttiilif^llcrtaTd 8SC^^ Af ftvr elub. 

The screeneditor of DOSGS can handle Macro's. To prevent to type everytiae the 
saae -frequent used- «acro, you can use the prograM HilOM. This proaram 
saves/loads the Mcrotiuffer and its limgth. awJ the SMrcn/f«plac« buff«r» with 
their lengths. 

Prwrmm l.a saves tti# baffiif>s and thftir lengths oft dtsfct 

Program 1. b loads the files (Mhich are saved Mlth program l.a) in MMiory«, It it 
possible to load 4 files Mith one coMMind, if you «aK« « coMMndfilsi 

\m IB) ED <CR> 

SOVE 'filenm l.mcr' 37,37 Hength maerobuffop; LOAD ' f ilsnm.l. ttCf' - 
SAVE 'filenm""2.(»icr' 27F,2CE imacrobuf for; LOAD • f il«n<(i,2. «cr* 

SAVE 'f ilenm^3.mcr' 54.55 Hength Search/ Re pi ace; LOAD * fll»nm.3«<»ci'! 
S«VE 'filene^4.«cr' 2l6,22F «8/R bufftrs; LOAD ' f ll«n«fi_4. (»epV. 

EX * fil«nm„5.«cr* 

Call it in the ED-commandmode with 16 'filenm 5. mcr' 

As you see it is much work to save/load a macro. The new release of DOSGS V2. 01 
makes it a lot easier, because parameter substitution in commandfilM i« ^IhfQ 

eossiblm. Uamingi Thm mmcrobufrer is locmtad *t «n ethsr loemtien M by flOKB 
1.01. 

Program 2: 

a> filename : smacro 

; usage i saves the last macro and find/replaca buffiif usmd in £&• 

: author i Erwin Visschedijk i 

I date I 26th May, 1986. 

This film makes a commandfile that can be used as a mavrn 4^ ii* 
Ttiiii command' his to be caUfd'in ED cempimdmodm as 

Vsmacro IftCT'Bnimir* 
Ttm macro Mith the name mm $n thm mditor's 

commandmode be called as 

llmacre 'macroname' 

save -b ftl.mcr 37.37 ; Save macrobuffer length 

save -a tl.mcr 287. 2d6 ; Save 80 macro characters 

save -a ti.mcr 54.55 ; Save search and replace buffer iMifitMi 

savm "a tl.mcr 210, 22f ; Save search and replace patf»tnc 

setmode -c tl.mcr 

b> filename : Imacro 

; usage i loads a specified macro in ED. 

• author t Erwin Visschedijk , 

; date : 26th May. iga£ 



This commandfile loads a macro into the editor. 

In the commandmode of the editor this command is called «ft 

! Imacro * f i lenaae' 



load tl. mcr - . - 

PS: This works only with releaitte !2^.01 !!r 

LOHER-CflSE COMMENT IN MQSER's ASSEMBLER 

Function: It is not easy to switch the cap. lock key, everytime you insert 

comment in a file. This program changes capitals into lower cases, 
after the semicolon. The utility can be called in the command- 
mode of the editor ami iCOMMENT (With SETNCffiE --C is this program 
defined as a command) 
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;File COMMENT. MfiC by B. de Bruine /E. Vissctedijk 



-7. iJK* 




no 


9P02 




90 


3F0d 


S5 


01 


9F06 


85 


91 


9F08 


fl5 


OQ 


9F0fi 


85 


92 


9F0C 


05 


OR 


9F0E 


85 


93 


9Fin 


fiO 


00 


9F!2 


20 




9F*f=; 


Bl 


90 


9F'.7 


ifl 




9F18 


05 


91 


9Flfl 


C5 


93 


9F1C 


DO 


08 


9F1E 


fl5 


90 


9F20 


C5 




9F22 


DO 


02 ■' 


9F24 


68 




SF25 60 




9F2G 


£8 




9=-27 


C9 


3B 


9F29 


DO 


cy 


9'^2B 


20 


4C9F 


9F2E 


B ■ 


90 


9n;o 


C9 


on 


9F32 


-0 




9r34 


20 




9F37 




90 


9F39 


C9 




9F3B 


30 


08 


9=^D 


C9 


5P 


9^F 


10 


04 




09 


20 


wlz 


91 


90 


9^i5 


eg 


OD 


Q"/. "7 






9^49 




34gF 










ES 


90 


9^ftE 


DO 






le 


91 


9F52 


60 





9F00 

0090 curpoi 
00^ eratpoi 

0000 1 ome 
OOOfi ceme 

couBMent 



SFOO 



Kit 



;ower 



0 rg 

equ 
equ 

equ 
eqij 

Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Idy 
jsr 

Ida 

cmp 

one 
laa 

CMp 

bnar 

P|» 
irts 

pla 
c«p 

bne 

JSC 

lea 
cmp 
beq 
jsr 
lifa 

f*P 

c*p 
bpl 
ora 
sta 
c*p 
-bee 
J*? 



ii-ic point 



bne 

inc 
rts 

end 



*3f00 

$90 
♦92 

too 

*0a 

lome 

curpo i 

loiYie+1 

curpoi+1 

ceme 

endpoi 

ceme+ i 

encpo i+1 

#*00 

incpoint 

rcurpoi],y 

curpoi+1 
endpoi+l 

Kit 

curpol 
endpoi 



Begin memory 

End of text pointer 



i nc rement cu r i 



Back to caHer program 



S^ip over <C^'> 



Found semicolon 
next , , 

incpoint 
Lcurpoi? 
#«0d 
next 

incpomt First cna racter 
i:curpol3,y Upper case 

I. 

same 
#'C' 
same 
#120 

**0'r 
next 
1 ower 



remajns 



' , y L owe case ? 
End 0 ^ 1 1 ■■ie 
Search for next 



curpoi 

incit 

curpoi+1 



comment 



label table: 



&Bam OOOfl co»«ent 9F00 compar 

incit 9F52 incpoint 9F4C lome 
sane 9P45 



9F17 curpoi 
0000 iowff 



0090 endpoi 0092 
nent fPi2 



erff«s. detected: 0 

In .D€^ fS ^trOl t«i», sitili'ty.caii fito i^e reXeawti'^nfatfi a aaera. 
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POB^ ftlifr-'B aSIC ($7000-»9FFF) TIPS , 

t.j iTSSD fee «4F. Ter«inalMidth and bufferwidth " 80. The extra bufferNidth 

destroys (Mkge zero variables from ttSa. Save this area 
before-, and restore it after input. 

2. ) S7389 fee «18. Cancel > ^^X replaces • (This substitution is nssdad for , 

bAsiceds usage). -..v - 

3. ) Break with t:: 
;Basicbreak 

;These patches coaes instead of the BITtest Procsdura in Ain63-Baslc. 
;It checks the inpvtport tti^|mard) fo^.^j^. ^ . , 

«Cill 



7640 4C flC90 

7643 Eft 

7644 Eft 

7645 60 



90%; 46 
gOAD ftD llCl 
90B0 C9 03 
90B2 DO 04 

goBA se 

gOBS 4C 4676 
gOB8 68 
90B9 60 



label table: 



cm ftEY^T 
f640 



org 
JMP 
NOP 
MOP 
RTS 

90AC org 

■ 

6RKTEST PHA 

CMP 
BNE 

PLft 
JMP 

CONT PLft 
RTS 
end 



BRKTEST gOftC CONT 



♦7640 
BRKTEST 



♦SOAC 



KEYPORT 

••03 

CONT 

•7646 



;6oto Patch 



;Read input port k«yliearci 
:'^C pressed ? 
;If net, continue 



;If ''C then fsti iiwls 
;h«ndler 



90B8 KEYPORT 



Errors detected: 0 
Back to D0S6S with SYS10*40g& (Cold) 
If you have any suggestions, 
knoM. 



or 



corrections, 
B> de Bruine 



(Uar«) 
extensions. 



cm 



a. s. 0. , please let ee 



Het kMt Meleens vaor dat er nieMQiflrige coaputerfana- 
ten de verleiding niet kurawn Ncerstaan ot van bepaalde 
data de bititaarde te weten te koaen. Het nu volgende pro- 

araau zal na IBJN vragen otk een oeciftaal adres. itaarna tiet 
e bitiiaarde van de data van dil alici lesTgwft m ttr de- 
ciaale Maarde van de data. ' 

10 REH BI'nifllTKnN PER MME5 
20 REK DOOR W.BORSDOOM 
30 REM VUMfiOINGEN 
40 DIW<(7) 

SO REM SCHOOWMKEN BEELOSCHERH 

GO IMiUT-UELK DEC. «IIE8 HILT U BITS8EUIJS ZIEIi:':M:raiN 

T:?RINT:PRINT 
70 B=1£N(A$):IFB>5G0T050 
80 A=VflL(m>:B=PEEK(R) 
90 PRINT-OE DATA IS ■B:PRII«T:PRINT 

100 FDRX=7T00STEP-1 

110 C=B-ri( 

120 IFS6N(C)()-1THEN1M 
130 K(X)=0:60TD1S0 
140 K(X)=l:B=C 

150 PRINT'BIT"X'-'K(X)»-»2*X 
160 lCfTX:PRIMT!PRI!fr:PRHff:PRINT 
170 PRIMT'RNISR ADRES OF STVICt R/S" 
160 GETnS:IFM=-A-T)Eli60 
190 IF»»«fTH0ttaO 
200 OD 



Na dit prograaM te hebben zien werken zult U zich ais- 
schien afvragen Hat U hieraan heeft als U aet een anoer 
prograaaa bezig bent. Daaroa is er een handigaeidie be- 
dacfit. Vianlat 8 het pregraiH intilit diet tot valynrie: 



POKE 44,64 
POKE 46,64 
POKE 48,64 
POKE 16^.0 



♦ RETURN 

♦ RETWW 
+ RETURN 
+ RETURN 

Hiema tikt U net bitpatroon prograaaa in. Na de laatste 
reoel (+ RETURN natuurlijk) te hebben ingetoetst doet U 
POKE 44,8 (RETURN) (oeen reset). Nu kunt 0 een anoer Basic 
prograaaa(2) neerzetten op de ouoe plaats. Uilt U nu pro- 
graMa(l) draaien, dan Pa<E 44,8 en RETURN, en Milt tl pn^ 
graaaa(2) draaien, dan POKE 44,64 en fETURN. 
Bij reset wordt dat prograaaa gereset itaar U op dat aoaent 
aee be^ig Mas. Prpgraaaa(2) staat in dit geval nog op 



adrts (toK400n. 



Mil aen m DATft-regels een 0 plaatsen, can kan Qit ook aeg 
gelaten Noroen. Het Despaart aroeid en geheugenruiate. 

BftTfl 5,0,0.17,0,32 is gelijk aan OftTfl 5., ,17,, 32 



Se NOS H(}BBYSa)OP 6()SIC{S)E-2 prograaaa's lijken Neer door 
iecereen zsncer probleaen te kunnen Horcen ontvangen. De 
redaittie wactit de door U ontvangen prograaaa's graag in. 
Er IS geen tijd zelf opnaaen te aaken, zodat Me aangeMezen 
znn op Uh aedeaerking. Vooral het eerste half laar van 
19B6 is er Heinig of niets van terecnt gettoaen. Rls U uit 
die periode ael goeoe ontvangsten nebt gehad, stuur deze 
dan het redaktie-adres. Ue kunnen er veel i flBMM iK 
opdoen zodat er Herk aan de ainkel bliift. 
ZEND IM BRSIOK PfBWIMPS AS IN IWR BE 8i»KnE. 
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Het volgende programma is een Basicprogramma geschreven 

voor een PRIME computer, en derhalve afwi^kend van Micro- 
soft Basic. 

LIN(5) betekent dat op de printer of op het schsrdi^.^S 
regels worden overgeslagen voordat de volgendtf ^ipjrl^t 

afgedrukt. ^ . 

Zie ook DE 6502 KENNER nr. 43, April 1986. 



De redai 
kat ie. 
KENNER, 
IJssel. 



:tie heeft behoefte aan Basicprogramma' s ter publi- 
Stuur het naar het redakt ie-adres van DE 6502 
Jacob Jordaensstraat 15, 2923 CH Krimpen 9i,d. 
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15 

16 

17 

18 

20 

30 

40 

50 

60 

70 

80 

90 

1 00 

110 

1 20 

130 

140 

150 

!60 

170 

180 

190 

200 

210 

220 

23("! 

240 
250 
■?f.o 
270 
280 
290 
300 
310 
320 
330 
340 
350 
3&0 
370 
330 
390 
400 
410 
420 
430 
440 
450 
460 
470 
460 
490 
500 
510 
520 
530 
540 



GERT KWETTERS/BflRT VAN PELT 
le JfiARS HOGERE ECONOMSCHE SCHOOL 
flUTOATISCHE INFORMflTIE VERWERKING (flIV) 
Kralingse Zoom 91, 3063 ND RotterdfM 



DIT PROGRflMMfi BEEFT U 
= VAN 2- EN 3-LETTERWOORDEN =" 
- DE MOQELIJKE LETTER- 

COMB I NAT I ES «» 



REM AUTEURS: 

REM ; 
REM : 
REM : 
REM 

PRINT CHAR(154); REM Clear Screen 

PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 
PRINT " 

PRINT Lmmy ' ■ ■ : . 

PRINT " DE REBELS: GEBRUIK HET *-TEKEN OM TE STOPPEN, " 
PRINT " OF ALS U BEEN WOORD HEEFT. HET Awt-" 

PRINT " WOORD NEE IS flLTIJD GELIJK AAN $. " 

PSJ^il ,"tk.,,s -".^UPK l«i£EN WOORD QF WSH « RETURW IN. " 

PRINT LIN (3) 

INPUT "WILT U VERDER SftAN ? ";«« 

PRINT CHAR(154) 

FOR A=l WHILE A*<> "$" . 
INPUT "TOETS NU EEN 2-LETTERWOORD IN: ";B$ • • ' 

FOR B=l WHILE BH>"t" 
PRINT LIN(2) 

PRINT "HIER VOLGEN DC MOBELIJKE COMBINATIES i" 

FOR 1=1 TO LEN(B$) 

FOR J=l TO LEN(B$) 

PRINT SUB(B*, I)+ SUB(B*,J), 

NEXT J 
NEXT I 

PRINT LIN(IO) 

INPUT "WILT U NOG EEN 2-LETTERWOORD LATEN BEWERKEN (20 JA, WELK)?;Bt 

NEXT B 

PRINT CHAR (154) 

INPUT "TOETS NU EEN 3-LETTERWOORD IN I ";M 

FOR C=l WHILE C$<> "$" 
PRINT LIN(2) 

PRINT "HIER VOLGEN DE MOGELIJKE COMBINATIES I " 

FOR 1=1 TO LEN(C$) 

FOR J=l TO LEN(C$) 

FOR K=l TO TO LEN(C*) 

PRINT SUB<C*,I) + SUB(C«,J) + SUB(C»,K), 

NEXT K 
NEXT J 
NEXT I 

PRINT LIN(5) 

..py^INPUT "WILT U NOG EEN 3-LETTERWOORO LATEN BEMERKEN (20 JA, WfeLK)?jCt 

PRINT LIN(3) 

INPUT j^WILT U VERDER NOG BEWERKINQEN LATEN UITVOEREN ? ";At 

NEXT A 

PRINT LIN(IO) 
PRINT " 

PRINT ;; - DANK U EN TOT ZIENS -" 

PRINT B H ■■■ all 

PRINT LIN (10) :\ ' ^ 

END 
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««■**«««•«»«««***«'»**«•*«•*« 

» JUNIOR @EKENT.«yM • - 

Na de fantastisch mooie uitbreidina van de VDU-*l»affe iil#«r Janssen in DE 6502 
KENNER iftt mm %Raf iseh ^^isaXav &4jD # 200 niMeX*.- m mm l««»-Co»t uitbrei- 
dina van ■'liil-Jtaa-ri -tot 'k'lMsmnleaai^* 0«z» vti^tinmi^ym 'Qiswl' i» ^^ilfende «.oo:e- 
l,i,jl<hed«>«e ' -'•'^ 

-low-^ edstfe igr tm slechts 1 WW IC 6116 nodio in oI«ats van 8^ " liiwcien 

-. ^ .fi.-:s30***.> .hwt. niiit iw«;r -'^.-j 
-2K kar«l#»p>*W%l^ ■SSC'f'il jflwiiw ^ " '"•■''^ ^'^ ' ' ■• ' 

-a klitirvnc Mit. £wii«l, ff«w^, -bIttUM. qieel. ffiaavnta, cvaavt* 

'VWQ*'m1&'dk»,mkimf: Mmm ©4* 2 'vmn'^ t klawens voor- •« acht«pgr©nd. 
-direkt eeten in de aehele video-RAM. 

raraohieaVl' 160#100"of 128»128 (afhankeli ik van de •chBrmindelino) met 8 kieu- 
c^i.'.' rsn^ lie JNtHiiiMW «islit«r nii^ ' t»VMl 4sl«uren bi) elkaar, omdat de oi- 

>: '-'c l^'C^ N^*ifli» -:b«**«l»i.- 44 tn «aar 2 kleuren •wv ikarak- 

*lt«r'feainei"Wit;' v«»: Si^diihSi*- iwt'oowha'f*' ie«*'««tl*rWil,» «K E»rom al 9& de 

VDU-kaart). Dit is mooeliik, JtMm lim 9b, lOe lim van een reael 
automat isch zwart aemaakt ytor^m (ttudtrscheid tussen de reaels), en 
dll nist nmmr in d« Cet^e«l e»eri8crp .aw M M ( y d- hoeft te wo rden. Oe karak- 
twrmatrix mrdt nu 8«8. en niet 

-knioDerende karakters 

-twee kristallen rnoaeliik, bi]voorbeeld 12 164- *«i*/mcwl) «» -III Itte fftp kif/ 
nMiBl)». Za zi vn softwarematlo omvel^elbaar via 'mmn ootrtlijn van 
d#¥M. 

Beschrijvinq van de schema's. 

De schema's zijn oedeelteliik l^ol««ii van d« El»k«Wl««e)«Mn('» Wihkaart. 
(Ml iv tti%^r«idim prin fetciwnti. Teeaevoeade iii)Mi«relele»i draoen nummsra IXX. 
* oud«* onderdisleh rmn EiekzmtmiHomt. ' 

Twee oscillators <N101-102 en N17-18. omschakelbaar door VIA PAS, of een schake- 
laar, via N103-105) oeven de dot-clock. IC 21 deelt hem door 8 tut karakter- 
clock. Deze is de harislaa voor CRTC.IC 11. die het hele zaakie stiittl't. De ka- 
raM*f*Ammm 'i^i* h»* JC »it««lift mm via flatltiolexers IC wmfJmiAm RAM 

iC^s.-tiJijeii' tlfi 'tC /l»liiifi!. de '«Jrt»i]«terwiBi«ter« Oit die door<®liPB« mii-tt^;- t»e- 
tiisao van de door de CftTC uitaeoeven ri i-^adressen RflO-RA2 tot karakters worden 
dieevormd. Het st vooenoat roon komt oo de uitaana van schuif register IC 20 te 
■i^R. awn^- twt «•! Iwt cursbrsianaal, tefwi jl N106-108 het kniooersignaal 

•iNiiH- tteyaftow!!* Htet iwiBwrsignaal wordt teller IC 107 van d« vertikale 

l^psoutiFm^' Lim%m'^Almm*-jmimim^' tttw- W-^mm- tMll' 'MiKMwnlivts . hoog 

Intussen geeft' de. tweedy RAM IC 110 de kleurinformatie uit, via tM«t#fi»l' (IC 
109-108). BiJ; 7 wordt afgebogen naar adreslijn A3 van de karakter-Eorom, Sli de 
2b K«t te selaktcfcn. iit 3 stuMrt het .kiiioosrsignaalK 

is k J Bu fen informatle (bit 0-1-2 voor voordrond. olt 4'»5-6 voor achterarortd) kt«t 
00 dp inoanaen van een rii AND'^oooften tefecht (N117, H124, N115-122), H»l iiit- 
eindelijke- itipoenoatroon, beschikbaar oo N112 en N113 ieoaall wvliw Infowrtie 
wordt ■ dooraelatert. Wanneer de li-inen DEN of RA3 (bij reaels met daw 8 

lijnen) hood.zijn, " wordt, via NllS^lli. N118 en N123 het uitaangsslfnaal alsnoo 
onderdrukt. /?104-106 zoraen voof -ye(iiehlil«nd« grijstinten. 

Wie djit verhaal- rioo uitgebreidei' mil -imem,. iSt- n»Ai* itttkel in Elek- 

tMur sBDtembefl'fiS.f " . 

D"e bouw. 



De VDU-kaart' moet grondig worden. verbouwd. De Eelektuur-Eorom kan bliiven zitten 
of oonieui4 georogrammeerd worden, W^fder maet er flink gekrast worden. en een 
SDinneweb van nieuwe verbindinoen<aanaelead worden. Ikzelf heb een uitbreidinas- 
0irintr3«!.gettaAkt en dat oi» de^>VDU-1^la^k.t^t g»s^roefd. Misschien is h^t wel beter om 
de zaate-^ltel^^aal' ooni^uw ob iie zetten. Wat er allemaa'i nodia is en wat er gedaan 
noet wofd6t^'^staat oo bijgaande bitowl'i jsten* 



§m tearakteraenerator lB'ro«& 



1^ • 'osrsBro«i(^li tie *amkter E0t^#m van Elektuur werd slechts 'voor de helft ae- 
bruikt*, omdat 'er ruimte tussen de reaels moest zijn, De matrix was derbalve 
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8*16. Nu kan die matrix 8#8 ziin, en zijn er 512 karakters moaeliik. Laat ^e 
fantasie dus maar de vrije baan! Grieks, sierletters. letters aan eikaar, aller- 
hande poooet les, soace invaders. 

De 'oraohicB^ komen ook uit de Eoroiri. Zii worden aevormd door blokies in een 2*4 
Matrix, OD de volgende manier: 

■ ■ Ka « X XX ■ ■ K« • X XX • ■ Xs ■ X XX ■ ■ X« « X XX ■ ■ X* 
.. «<wa"«ij 'i'M." Hi n. X. -■H. .X tH »« .X XX XX XX XX .. 

X. X. 

«■ 

00 01 02 03 04 05 06 07 08 09 Ofl OB OC OD OE OF 10 11 
enzovoort, tot nummer 7F (127). En wat zien we nus nummer 80 (128) is de inverse 
van 7F, 81 van 7E etc., FF van 00. Door v,ooT- en achterfrond te verwisselen 
wordt dus de 2e helft van de set verkreqi^ rM) i»lfli>€r d^i^'i^rakters tt^r die 
ergens anders voor gebruikt kunnen worde»» v .t-- 
NBI De oroaramineerv»laord« van d» karakter»: is ai^c^'#flM''iw denken. 
De Eorom-a8ressen:_ _ _ 

nr. 
nr. 



nr. 251 0FB0-0FB7 
nr. 252 0FC0-0FC7 
nr. 253 0FD0-0FD7 
nr. 254 0FE0-0FE7 
nr. 255 OFF<0N&FP7 

Let hieroD, anders zit er ineens emn c oo tie olaats Mattf.^c mem b wilt 

T' -. ,7' 1 I •»^>'- < 

PrograiMMterModel kleurenkaart. 



nr. 
nr. 
nr. 
nr. 



0 0000-0007 

1 0010-0017 

2 0020-0027 

3 0030-0037 



nr. 4 0040-0047 



256 0008-OOOF 

257 0018-001F 
nr. 258 0028-002F 
nr. 253 0038-003F 

260 004a-004F 



rlir 



nr. 
nr. 
nr. 
nr. 
nr. 



507 0FB8-0FBF 

508 0FC8-0FCF 

509 0FD8-0FDF 

510 0FE8-0FEF 

511 0FF8-0FPF 



I bit 

I 

I kar. 

I 

I adr. 



bit 1 I bit 

I 

kar. I kar. 

1 I 



2 I bit 3 I bit 4 1 bit 5 I bit 6 I bit 7 1 

I I I i I I 

I kar. i kar. I kar. I kar. I kar. I 

21 31 41 51 61 71 



ddr. 



I adr. 



I adr. 



1 adr. 



I adr. 



i adr, I adr. 



I 



••>-•—«*»—»*■—— -.—-^^ ■ .A, ^a)^m ! '! ^t~-^<-M-^—.m'-^i-m,.^i^——^ — 

I • bit 0 I bit II *** 2 I bit 3 I bit 4 I bit 5 1 bit 6 I bit 7 1 

-• ■ i -J .... I I I I I I I 

-i mm .ri-.'mmm \ BLAUU I knlo- l - t GROEN I BLflUW I kar. I 

-.<.••> ■ l:-s; I J. oeren I .re-.' : I, . J I. 81 

. I WHS* - I voor I vooi* - • 4 • 4^'»elnkmv~-i- 'me^tttmm -^t- mst^mp I.- •aUr. 1 



Kleurenram bvte (4E800-$EFFF) . Beide blokken achter eikaar decoderen. 
Veranderen a«an interfaceinamrt: de CRTC wordt. po fl900 qedecsdeernt. 




«f ii 



•i 



ptnZ5> 




lenodiad: 1 x 6116 



1 X 74LS02 
1 X 4024 



2 X 74LS273 

3 X 74LS00 
2 X 74LS08 
1 X kristal 12 of 15 MHf 



X 10 uF 
X 33 Ohm 



1 X 74LS245 1 x 68 Ohm 
9 x 100 nF 1 X 120 Ohm 



□lYibo uwschema. 

Ran comoonentenz 1 ide van de VDU-kaart niets doorkrassen. 

flan soldeerziide voloende verbindinaen doorkrassen: 

IC 3 Den 10 - IC 21 oen 2 Weerstand R2 
■ ■ . ■ ICS Den 3 - IC 6 oen 1 IC 17 oen 7 
IC 3 oen 6 - Weerstand R4 IC 11 oen 35 
IC 15 oen 18 - IC IS oen 12 IG 11 oen 40 
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2 X 470 Ohm 
1 X 10 kOhffl 

I X mMm 



IC 3 oen 1 
IC 6 oen 2 
IC 19 oen 5 
Weerstand R6 



□ 



Aan de tetentafel: 
Fridus Joniwan 




Niog-NMO = rc io3 - 'Y<''^oZ 



COLOR VDU BO^te 



PH0N5 BLOfHiN 
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1 
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eA3 



» 1 1 



H7 



ILIMK IMC 

I 1 ^ q 5 i f R 6 B R & g S 



3 Bif INFoKHATlOlf - 



lOon 10^ icon 




_ — 





. - 10 


? 


! 




ij 


M 






H 




J 


IT 


It 


lb 




.> .» 







I ? I I ? 



_\ VIDEO - 



KSI : ret s|ltjtSiO 

Nlofc-lo9 • ICloZ. s^nU&OO 
Nii-J-iit = rCloq : :)ql-6oo 




E 5 □ 5 



KEIMISJER 



Nieuwe verbindinaen. 

Od VDU-kaart zelf: IC 3 oen 10 - WeesrtaYid R2 ^ ^ ^ . 

Diode 101 : IC 11 oen 60 (anode) - Weerstand Rf (kathode) 



Tussen VDU-kaart en nieuwe uitbreidinasorint : 



IC 


3 


oen 


10 


IC 


10/16 


oen 


11 


IC 


10/16 


oen 


12 


IC 


10/16 


oen 


13 


IC 


10/16 


oen 


14 


IC 


10/16 


oen 


15 


IC 


10/16 


□en 


16 


IC 


10/16 


oen 


17 


IC 


10/16 


oen 


18 


IC 


1 


oen 


14 


IC 


12 


oen 


1 


IC 


15 


oen 


18 


IC 


11 


oen 


35 


IC 


17 


oen 


7 


IC 


5 


oen 


3 


Weerstand 


1 R4 


- 


IC 


5 pen 10 


/ 


IC 


15 pen 21 


/ 



IC 101 oen 
IC 111 oen 
IC 111 oen 
IC 111 oen 
IC 111 oen 
IC 111 oen 
IC 111 oen 
IC 111 oen 
IC 111 oen 
IC 103 oen 
IC 103 Den 
IC 103 oen 
i c 103 oen 
IC 104 oen 
IC 102 oen 



IC 5 oen 5 / I 
IC 15 pen 20 



2 
11 
12 
13 
14 
15 
16 
17 
18 

2 
3/5 

1 

9 

9/10 
1/2 
105/1 
C 10 
C 4 
/ IC 



(X MHz) 

(D7) 

(D6) 

(D5) 

(D4) 

(D3) 

(D2) 

(Dl) 

(DO) 

(fl'lT) 

(CSl) 
(RA3) 
(DEN) 
(CUR) 
06 

Den 19 
oen 6 
5 oen 6 



IC 21 oen 

IC 12 oen 



2 
4 



IC 12 oen 12 - 



IC 12 Den 7 
IC 13 oen 9 
IC 13 oen 7 
IC 13 oen 12 
IC 13 oen 4 
IC 14 Den 9 
IC 14 oen 7 
IC 14 oen 12 - 
IC 14 oen 4 - 
IC 19 oen 5 - 
IC 17 oen 9 - 
IC 11 Den 40 - 
Konnektor 21a- 

- IC 111 oen 19 

- IC 110 Den 21 

- IC 110 oen 20 



IC 101 oen 3 
IC 110 oen 19 
IC 110 oen 22 
IC 110 oen 23 
IC 110 oen 1 
IC 110 oen 2 
IC 110 oen 3 
IC 110 oen 4 
IC 110 oen 5 
- IC 110 oen 6 
IC 110 oen 7 
IC 110 oen 8 
IC 109 oen 15 
IC 109 oen 11 
IC 107 oen 1 
IC103 oen 6 
(C) 
(WE) 
(OE) 



(DCL) 

(BftlO) 

(BA9) 

(BA8) 

(Bft7> 

(BA&) 

(BAS) 

(BM) 

(BA3) 

(Bfl2) 

(BAD 
(BAO) 
(CH8) 
(CLK) 
(VS) 

(AID 




Mtieri ft Speksnijder, The Nef lwrla»d&* 

This is a smII prograin to look at the real contents of 
the Ran or the Ron. flrter RUN you type the deciaal address 
of the first location. The prograst then shows this and the 
next 19 addresses. 

The data is shown as a nuatber and as the Atari cl'iaracter. 
Some nuiKbers cause unpleasant effects in tie text mi 
therefor line 50, 60 and 70 are added. 
If |Sit press (SEL^) tJWa yftu ^ tite i»»t 2d vSdmum^ 
* if you press CSJWJ tnen fm can fSltP i flw Ngi«- 



10 '"BEGIN": J INPUT B 
20 FOR 1=0 to 19 

30 C=PEEK(B+I) 

40 ? E+I,C. 

50 I- C=i8 C=29 T^M 90 

SO IF C=!25 OR 0=135 THIS 90 . ' . 

70 If Z-m OR g»tS7 T«P 80 

80 ' WlBvt} !iw^' , n - . 

90 ? 

100 NEXT I 

110 IF PEEK(53273t)fi H©l 110 

120 IF PEEK(53Z»J«I H0i It 

140 iii^ 

11 l« t)^ii»ting to look hoM the fliarl puts his pregfat 
in mory. Wh«i you calculi : 

PEEK(136)*2KiPEEM(i» 
it will give thi fM wUmm timm the toic pTOgjrai it 
iit wmty. If you iM a line lfi»t 

I m BASIC 

and thf^ run this Basic prograt. As the beginaddress use 
the r^It of the calculatien, The list arter the REH it 
exact in the prograA, but ll It & lot 9f wrk ts f imi tut 
hsN the rKt is done. 



;*PROGRflrClJraACK**te i 

• The U« 6845 is different fron other C:^TC oipS. | 
; In the N0N/D0S65 system tiis results in a cursor one 




tie interlace tontrol regi 

15 ir the cefault situation) the cursor position is 
wrong. Clanging t^e bit to 6 MWes tie cursor *« 
wiere it s-iould be. 



be madfrinto a coimanc j;iCfd 




By ! Peter Roessingh, The VHherlandi. 
Systea: MOM/DCS £5 

CURMCK ORG $800 ; Startacdress 

; »»♦ Variables and definitions »♦♦ 



CSTOflR E3U $C140 

mmm $ci4i 

; »« Start of prograi «»♦ 
LDfi «*08 

sTfl cRTcas .^„^ , 

IDA liOO 

STfl C8TC»^ 



i crtc aijdress register 
; eftc-fi^tr file 



get registeraddress 
and store it in cntc 

get rm valw 

and i^i Mi S in reg. 

WPi 0.pf^m 



mmmm m mBrnmSSS (By: Albert v.d. BeukeU 
When i bast up the system disk I have interference on «; 
Aenittr like stripes and other tnings. Vou can solve 
Mllh « little oDdification as folloHs: disconnKt pin 1 of 
IS i C74LS30) and connect it with pin 27-a of t«l ^pins 
card cenriKtor. If done, tne interference is gone. 
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cHweiNG THE 6502 BY A 6S£02 Pmmm 

IN ELEKTOR'S JIMIOR mmM. 



ProblMs occured (measures Mde Hith RockNtll pfecJt 

1 : clocksignals phase 1 and piuse 2. 

2 S'tle Ian-out. 

3 r m ft/H signal. ' ■ ■ ■ 

I'O -. . 

1. The input/output of tne pins 37 «fld 31 ff-tal is 
between the«) of the C-«s are not coapatiale witu tie 
old H-»os version. The voltages switciing Iom to hig-i 
and reverse are different. The christal is giving soee- 
thing like a triangle-itave foni. Tj* result was an in- 
sitable tieing sequence. Phase 2 hight 63ft. |liSl|tL Iw HQIl, 
nSec. This i% far mre than the published IflamMxt vf 
t^ ftockMell dSICOl. To solve this problet, put a resisr ' 
tor froM pin 37 to earth. For my systen I needed 6i' 
KOh*. The neN phase 2 low and phase 2 high were! 
480/520 nSec. But noH the oscillator refused to start 
Mostly. This Mas solved by putting a resistor of t,S 
WhM betHeen the 2 pins of the X-tal, the neM phMi 2 
low/phase 2 high becaiie &62/518 nSec. 

Everything was done with help of an oscilloscope. If 
you don't have one: £)uild an extern oscillator on a 
5«all print and give the processor a nice blackwave. 

2. 11w fan-aut of the C-tes version is 1; that of th» 
ter«al (H-«05 version is 2. Be sure that all TTL, get- 
ting signals direct fro« the CPU are LS-TTL, than this 
proolent is solved (Eproi* and PIfl take far less then 1 

pro pin: they are Mos-IC's). 

3. Check resistor RS on the eain print. This has to bi470 
Ut» or less, down to 330 Tl^^Mi « IMttr #hape 
flf the Ram R/W signal. " ' * " 

To ittprove the quality of the control signals you can give 
the earth points of the processor, Eprom and PIft an extra 
connection to earths to pin 16 a-c of the connector. These 
f ins li a>c mtt not in use. Cheek their eonmction to 
ftrth fiPtt. 



S. Browtr, MnoilOf m rtciived coeaents 



m IMr irtini 'Van 80 Mar 40 fradn* in Elektor's eaga' 
zine in Holland, July/Aug, ' " ' " " 



in i9ieh tiey 

give a KhMitxc dii9ra«'tff iiiw It mmiiitle It^^ m 
tracks diiktttM an jwf ^ tHeks drive. In this mllil 
theywrotc: Nl. ..li mm^- MS2S, Read fAi> 1»m nm 
IkisSi and you aay read your 40 tf«ctn disKittts. 



er op een scnijf een programa staat, dat met 
net ^piij»tlRkJir staan dan bnvoorbeeld: 

- Pai#P»-Nf»W »PR8), 
dan is de eerste rHktif M di| prograwia eventjes te yer< 
Hijoeren ect een SCRAl^ iii<kan oijvoortMMld als valgt 
MfHiR iwwvoflrdt - _-^^'£: -i ^ ^ . 

{dpENi5,8,i5, 'Sitmstmimifpfsumti). 

$m M^tNldt Merkt Mel. 



OE eBIH4 flLS T^^ENACIidE 



flmtontaand prograwia laat U de CBM-64 als typeiachine be- 
nutten. Laadt het programa en zet de printer aan. Als het 
prograuM gestart wordt, verschijnt er een vragteken. INi 
mm U tit tax. 76 karaKters per regel invoeim cn op 
<«fM tfrtikkm. De ingevoerde regel mm iiNki ge- 
(irint. Als U tt^ Ipnt, geif dan 'Xlx*. 

100 P0KE59A68,}| 
no 0PEN7,4,7r- 
120 0PEN4,A 
130 INPUT ft$ 

140 IF A< - "XXX* THP PI{}NT«4iGlQK4iENB 
150 PRINT«4,AI^ ■» ■ ^ 
160 A$ « " ° 
170B0T0130 



PLEASE NOTE THAT YOUR 1987 SiidSlMit Wll H 
THE MONTH OF DECEMBER 1986 
SEND CHEQUE OF HFL. 59,50 TO U.L. VAN PELT 



50,00) 



> 1 
>2 
>3 

> A 
>5 
>S 
>7 

>a 

> 9 

> 10 

> a 

> 12 

> 13 

) 14 

> 15 

> 16 
) 1? 

> 18 

> 19 
>20 
>21 
>22 
>23 
>24 



* 

* 
* 
* 
* 
* 
* 
* 

» 

#»*####»»»«»**#*♦#***»*»«»#*«»*« 



PUT CHESS:. 5 
******************************** 

IN EOITIE 20 VAN DE 6502 KENNER VAN FEBRUA'^I ISBl 
EFM HFRPUBi IKATIE GtPLAATST VAN HET KlM-SCHAAKPR069A^- - 
m VAN TH. KORTEKAAS UIT DE KIM-KENNER NR. 14, DEC. ' 80 
DIT PROGRAMMA TROK D£ AANDACHT VAN VEl€ LE2|ii|* iRJrtc; 
20 WERD VCLLEDI6 UITVERKOCHT. 



IN DIT PROGROMMfl fS MET P9Q6RA*IMA VAN KOR^'EKAAS INTE- 
GRAAL OPBENOMEN, AANGEPAST VGOR DE Jij!NlQi*-COMPUT£R. 
HET GEINTEGREERDE DEEL BEVAT GtEN K0*1M£NTAAR KEGELS. D^- 
TOEVOeSIl^ ^AflRVAN BUt-m^ MEER MC6ELIJK. 

MET Wmi THEO Kd8ffKft«®, 



ZP 



mONI EQU *1C00 



ZERO PAGE LO^Itt' 



>26 



18 









\W 








> 28 








>29 








> 30 








> 31 


2808 ! 


E6 


OC 


>32 


280fi ! 


A9 


CO 


> 33 


280C! 


85 
45 


08 


> 34 


280E ! 


15 


> 35 


2810! 


85 


15 


> 35 


2812: 


98 




> 37 


2813: 


85 


06 


> 38 


2815: 


38 




> 39 


2816! 


E5 


OB 


> 40 


2818! 


85 


OB 


> 41 


281fl! 


ft9 


3F 


> 42 


281C! 


85 


05 


> 43 


28 IE 


ft6 


05 


> 44 


2820 ! 


BS 


16 


> 45 


2822 ' 


FO 


6C 


> 45 


2824' 


45 


15 


\ /. *7 

> 4/ 


2826 


29 


40 


> 48 


2828 


DO 


56 


> 49 


282fl 


B5 


16 


> 50 


282C 


29 


07 


> 51 


2a2E 


ftA 




> 52 


282F 


B5 


56 


> SJ' 


2831 


85 


07 


> 5a 


2833 


h6 




\ crc 
> DD 


2835 


66 




\ cr£: 
> Dfo 


2837 


46 


04 


> 57 


2839 


46 


04 


> 58 


2838 


46 


04 


> 5y 


28ciD 


8fi 




> 60 


283t 


29 


U7 


> bl 


2640 


ftp 




> 62 


2841 


A4 


07 


> 63 


2843 


B9 


64 


00 > 54 


2846 


PC 


02 


> 65 


2348 


OP 




> 65 


2849 


BO 


OE 


> 67 


264B 


Oft 




> 68 


264C 


90 


01 


> 69 


2e4E 


E8 




> 70 


284F 


00 




> 71 


2850 


90 


01 


> 11 


2852 


ES 




> 73 


2853 


■ EO 


08 


> 74 


2855 


! 90 


Ofl 


> 75 


2857 


! BO 


2F 


> 76 


2859 


: 00 




> 77 


285fl 
285C 
285D 


! 90 


01 


> 78 


! CP 




\ —in 

> 79 


! Ofi 




> 80 


285E 


! Ctt 




> 81 


2e5F 


! 30 


27 


> 82 


2861 


! 88 




> 83 


2862 


! FO 


38 


> 84 


2864 


! 66 


14 


> 85 


2866 


! ft6 


04 


> 85 


2668 


! 10 




\ D7 
/ D / 


26&A 


! 20 


8E 


2fl >88 


286D 


: 68 




>89 


286E 


; 85 


13 


>go 


2870 


! 24 


OE 


>91 


2872 


: 70 


25 


>92 


2874 


: P5 


08 


>g3 


2876 


: C9 


41 


>g4 


2878 


! FO 


IF 


>95 


2870 


: AG 


05 


>96 


2870 


i BS 


16 


>97 



VEiT lau «lft7fl 
» SUBROUTINE CftLC *' 



CALC INC NWO 

LDA «*C0 

STA ZWRD 

EOR CKAZ 

STA CKAZ 
TYA 

STA N2ET 
SEC 

SBC WRDE 

STA WRDE 

LDA #$3F 

STA VAN 

BOZ LDX VAN 

LDA BORD, X 

BEQ BOM 

EOR CKAZ 

AND #$40 

BNE BOi^ 

LDA BORD, X 

AND #7 
TAX 

LDA PTZ.X 

STA ITZ 

BOO LDX VAN 

STX NAAR 

BOC LSR NAAR 

LSR NAOR 

LSR NAOR 
TXA 

AND #7 

TAX 

LDY ITZ 

LDA TZET,Y 

LDY #2 
BOD ASLA 

BCS BOG 
ASLA 

BCC BOE 
INX 

BOE ASLA 

BCC BOF 
INX 

BOF CPX #8 

BCC BOZZ 

BCS BQL 

BOS ASLA 

BCC BOH 
DEX 

BOH ASLA 
DEX 

BMI BOL 

BOZZ DEY 

BEQ BOO 

STX HULP 

LDX NAAR 

BPL BOD 

BO J JSR MOVE 

BQK PLA 

STA EPS 

BIT CZO 

BVS BON 

LDA ZWRD 

CMP #$41 

BEQ BON :' 

LDX VON 

LDA iORD, X 



I LEHER TO THE EDITOR 



I Object! Troubles with Micro-ADE and Elektor's OCTOPUS. 
I (Question in the June '86 Club Magazine) 

1 Red. ! In some cases, the Hicro-flDE Rsseabler does not 
I work correctly and produces a continious loop of 

I error messages after starting up. It was already 

I known that the renoving of jumpers on PL 3 looses 

i the problet, but not in case if a serial printer 

! is cdmwctal. 

I 

I H. Lachaert, Belgiua. 

! If I well understood the kind of the trouble, it 8ee«s to 

I be the interaction of a harware error in the system and 

i the rather Mnvsttal way ef 'Error handling' in Micre-ADE. 

I ftn error is treated by Micro-fiDE as a 'BRK' itate. fit the 

I initialisation of the progrua, the IRthvector is deviated 

' to the error handling routine of Micro-flDE. fls known, the 

; IRO-vector treats as well as hardware interrupts (INTER- 

! RUP"' REQUESTS caused by the 'pdling low' o*^ CPU's pin 4) 

' as software interrupts when the program encounters a 'BRK' 

! instruction (=$00). These techniques were already treated 

I extensively and very clearly by Ruud Uphoff in the issue 

I nimber 40 of Oct«iKP 
I 

! During running Micro-flDE, IHRISMARE BREAK should in no 

! way occur' The program should interpret this as an error 

I in the program, and return automatically to it's error 

' handler. If during this, pin 4 is still (too...) low, the 

! progran will co into a loop and Mil! produce error utessa- 

! ges to eternity. 

! I had the same proDlem while installing Wicro-flDE for the 

! first time, simply because of an accidental short-circuit 

! in the FCU-card. The IRQ-entry of tne CPU was connected 

i via — via with it's SYNC that produced nice pulses, 

' pulling IRQ down at the misfortunate moment... That short- 

' circuit was there sines months, but I had never earlier 

1 problems. No other program indeed used BRK instructions... 

; I can assure that I spent urqr e^ngs to find e^ut Mhal 

! really happened! 

! It is naturally hard to determine from here wnere the 

! problem resides in any individual system. It can in a 

1 simple way be located when the signal on pin 4 of the CPU 

1 is displayed on a scope. This pm must flLHfiYS REHflIN HI6H. 

I If not, one must urgently find out which composant 'pulls 

! the Din low'. In a normal Octopus configuration, there is 

! no element that does so, thus there must be cabling error, 

i shortened print tracks, or an unfortunately choosen 

! extension... fl first diagnose trick can be to lift pin 4 

! out of the socket, and to connect it with a lOK resiitOT 

1 with the + 5V. Normally all aust then work tiell. 



1 LETTER TO THE EDITOR 



! Solution of Micro-flDE problem of continuous errors. 




1 By! Ronald Hermens, The Netherlands. 

I The problem is in the routine! FNDND = $2496. This subrou- 
! tine will search from source begin address for the follo- 
I wing pattern: »0D, ♦»,♦♦, »40 («♦ = don't care). If this 
I pattern is not found, the subroutine will continue sear- 
I ching on successor addresses, until iFFFF and will go on 
I from $0000. Eventually a PIfl timer address will be read, 
I and the titer is set, on a tiie-out an IRQ will occur, the 
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287E! 
2880 ! 
2682 : 
2884: 
2886 : 
2888 : 
2880 : 
288C: 
2a8E : 
2690 ! 
2692 ! 
2894 ! 
2896: 
2899! 
269C! 
289E! 
2a9Fi 
28fl0 : 
28fll 
28fl2r 
2804 1 
2906: 

2f no I 

2";PB! 

2BhD ! 

28ftF! 

2861 

28B3 : 

28B5 

28B7: 

2869: 

28BB: 

28BD: 

26BF: 

28C1! 



28C3: 
2eC5: 
28C7! 



2&mi 

28D5 
2808 
28D8 
28D9 

i^B 

28DD 

28DF 

28E1 

28E3 

28E4 

28E5 

28E& 

20EB 

2dE6: 

2^j 

2ero« 

28F2« 



29 04 
FO 06 
06 04 
B5 16 
FO OF 
E6 07 
06 07 
B5 64 
DO 03 
C6 05 
10 80 
00 00 
4C 42 29 
4C D6 29 
85 10 
80 
00 
00 
00 

05 14 



04 
05 13 
48 

84 03 
24 10 
30 02 
50 12 
84 13 
10 4C 



50 
05 
24 
C9 



B3 
04 
15 
20 



50 35 
90 OC 
BO 33 



06 04 
B5 16 
FO 04 
84 13 
DO 30 



E4 13 
DO 6B 
flO 08 
24 15 
E8 

70 02 
CO 
CO 
68 

DO F8 
84 13 
B5 16 

94 16 
48 

80 
48 

E& OB 
20 BE 20 
C6 OB 
&d 

95 16 
DO 48 



>99 

> 1 00 

> 101 

> 102 

> 103 

> 104 
/ 105 

> 106 

> 107 

> 108 

> 109 

> 110 

> 111 

> 112 

> 113 

> 114 

> 115 

> 116 

> 117 

> 118 

> 119 

> 120 

> 121 

> 122 
) 123 

> 124 

> 125 

> 126 

> 127 

> 128 

> 129 

> 130 

> 131 

> 132 

> 133 

> 134 

> 135 
) 136 

> 137 

> 138 

> 139 

> 140 

> 141 

> 142 

> 143 

> 144 

> 145 

> 146 

> 147 

> 148 

> 149 

> 150 

> 151 

> 152 

> 153 

> 154 

> 155 

> 156 

> 157 

> 158 

> 159 

> 160 

> 161 

> 162 

> 163 

> 164 

> 165 
>16& 
>167 

> 168 
}169 
>170 



BOL 



BOM 



BON 
BOO 



BIIZ 



AND 

BEQ 

LDX 

LDO 

BEQ 

INC 

LDX 

LDO 

BNE 

DEC 

BPL 

LDY 

JMP 

JMP 

STO 

TXO 

OSLO 

OSLO 

OSLO 

ORO 

STO 

LDO 

PHO 

STY 

BIT 

BMI 

BVC 

STY 

BPL 

BVC 

LDO 

BIT 

CMP 

BVC 

BCC 

BCS 



#4 

BOL 

NOOR 

BORD, X 

BOC 

ITZ 

ITZ 

TZET, X 

BOO 

VON 

BOZ 

#0 

BIM 

BBD 

CZET 



HULP 
NOOR 

EPS 

PROM 

CZET 

BIIZ 

BO 

EPS 

BG 

BOJ 

NOOR 

CKOZ 

#«20 

BE 

BOK 

BF 



* PION SCHUIN SLOON * 

BO LDX NOOR 

LDO BORD, X 

^ BEQ BB 

STY EPS 

BNE BH 



BB 



BC 



BD 



CPX 


EPS 


BNE 


BL 


LDY 


#8 


BIT 


cmt 


INX 




BVS 


BD 


DEX 




DEX 




DEY 




BNE 


BC 


STY 


EPS 


LDO 


BORD, X 


STY 


BORD, X 


PHO 


TXO 




PHO 




INC 


WRDE 


JSR 


MOVE 


DEC 


WROE 


PLO 




TOX 




PLO 




STO 


BORD, X 


BNE 


BL 



I Mpnq^ 1^ bit mk mt set in Micro-nOE, so the break 

i routine iiill be executed, folloHed by a Mare start 

i fff Ittcro-flDE (Nhich clears the interrupt disable flaa). 

I Because the tieer of the PIfl is still giving interrupts, 

I the break routine Mill be executed again after a few sili- 



seconds. This is follMBd by a Mani'start, nhich enables 
interrupts etc. 



FNDND calls the subroiAliiiSrU) ■ f24FB the tabreutine in- 
I creases the address-pointer (6L0-BHI) and loads the con- 
I tents of this address in the accuaulator, if the address- 
I aeinlsr is beyond the end of tbtiHttiGe-area the N-flag 
t Mil be set, this iRi rWlSlM iftll^ m» flag. 

I NEU ERROR: 

I n» i n » HK (OE) ' Foreat of the source file is not 
I correct, the last correct line nutber Mas printed just bt^ 
I fift this error. If line WMfaer »M66 tnciit li|io 
I llw found insoum aim 



15 00 

16 00 
FB 24 
EB 2D 



I 
I 
I 
I 
I 
I 
I 
I 
I 
J 
I 
I 
I 
I 
I 
I 

t VRflAG EN flflNBOD 

I 



MTCH: 
NLO • 
NHI « 
LORD • 
HEXSP « 



toois 

»L0 

mm 



yEC 
3FEC 20 
3FEF 10 
3FF1 AS 
3FF3 fl6 
3FF5 20 
3FFB 00 

W6 



PATCH ORG $3FEC 

FB 24 JSR LOAD 

08 BPL PATOK 

16 LOAZ NHI 

15 LDXZ NLO 

EB 2D JSR mm 



NOP 



LINE NUMBER 

401 IN SOURCE AREA 

fr «PT CHAR FROM US 
INffl ( X, HEX-VALUE 

ANY ADDRESS HILL DO 
SET NEXT VALUE 
BRANCH IF OK 
SET LAST 
VALID LINE • 
PRINT IT 
ERROR t OE 
CHARm^. RETURN 
NEXT " 



2439 

2499 20 EC 3F 



IN FNDND ROUTINE: 

IRS <2499 HAS JSR LOAD FETCH CHAR 
fSR PATCH NEU ROUTINE UITH CHECK 



* PION EN POSSONT SLOON * j 



Uie SchiMel, Calslaan 28 B - 62, 7522 NC Enschede, 
Telf. : 053 - 89S040 

Ik ga het M0N/D0S65 systeet bouMen, Ik bezit echtcr giMfl 

A^Il parallel toetsenbord, naar een IBM (conpatiBle) 
toetsenoord. Dit heeft een ander prograwu in Eproa en een 
RCIA als interface. Uie Mil aij helpen of inforaatie be- 
zorgen oa er een ASCII parallel toetsenbord van te aaken? 

LETTER TO THE EDITOR 



I 
I 
I 
I 
I 
I 

I Ronald Heraens, The Netherlands. 



Several tiaes I have noticed the aalfunction of the dis- 
play of ay JUNIOR-coaputer. Uhen I slightly touched the 
CPU-card it Hould function nortally. It has happened that 
the connection with the Elekterainal broke dOMn, and Mhilf 
reading a tape, first the green LED and later on, the red 
LED lighted up. I found tnat this Mas caused by sticking 
half out of the socket, of the PIA on the CPU-card. 
The processor and the Eproa bwigled dOMn not so Mell 
either, according to ae this is caused by: using no top- 

?uality sockets, and the continuous little aoveaents of 
he CPU-card, (because of the keyboard) in co-operation 
with the gravitation. Solution: check this regularly, or 
take an isolated (!) copper Hire Mith a aassive nucleus, 
put this under the socket and Mrap both ends on top of the 
IC round each-other tight. This can only be done Mhen 
there is sufficient spKC bctNeen toeket tm pcb^ 



20 



28F4! 


BO 


46 


28F6! 


18 




28F7! 


65 


05 


28F9: 


4A 




28Fft! 


flfi 




28FB. 


B5 


16 


28FD! 


DO 


3D 


2aFF- 


86 


13 


2901 


06 


04 


2903 


B5 


16 


2905! 


DO 


35 


2907 


EO 


08 


2909 


90 


04 


290B 


EO 


38 


290D 


90 


30 


290F 


fi6 


05 


2911 


B5 


16 


2913 


48 




2914 


09 


03 


2916 


85 


03 


291B 


05 


03 


2910 


06 


05 


291C 


95 


16 


291E 


29 


07 


2920 


C9 


07 


2922 


FO 


15 


2924 


. 00 




2925 


! 05 


OB 


2927 


: 48 




2928 


■ 18 




2929 


! 75 


5D 


292B 


: 85 


OB 


292D 


: C6 


OB 


292F 


! 20 


8E 


2932 


: 68 




2933 


: 85 


OB 


2935 


: E6 


03 


2937 


: DO 


DF 


2939 


: 68 




293fl 


: 95 


16 


293C 


: 4C 


6D 


293F: 4C 





20 



28 
26 



It 
hi 

2949 s 
294B! 
294D: 
294F: 
2952! 
2954: 
2956: 
2958! 
29Sfli 



29SC! 

2961 1 
2962! 

2964! 
2966: 
2967! 



AS 13 

m 

m fi 
m m 

85 OS 
85 04 
06 06 
20 BE 
02 BF 
05 06 
FO 79 
46 06 
90 77 



20 Fa 
BO 30 
E8 

B5 16 

86 04 
E8 

15 16 



20 



29 



> 172 

> 173 

> 174 

> 175 

> 176 

> 177 

> 178 

> 179 

> 180 

> 181 

> 182 

> 183 

> 184 

> 185 

> 186 

> 187 

> 188 

> 189 

> 190 

> 191 

> 192 

> 193 

> 194 

> 195 

> 196 

> 197 

> 198 

> 199 
>200 
>201 
>202 
)203 
>204 
>205 
>206 
>207 
>208 
>209 
>210 
>211 
>212 
>213 
>214 
>215 
>216 
>217 
>218 
>219 
>220 
>221 
>222 
}223 
>224 
j22§ 

y a2w. 

?227 
>228 
>229 
>230 
>231 
>232 
>233 
>234 
>235 
>236 
>237 
>238 
>239 
>240 
>241 
>242 
>243 
>244 



* PION TWEE VELDEN VOORUIT # 

BE BCS BL ' 

BF CLC 

ODC VON 

LSRO 

TOX 

LDO BORD, X 
BNE BL 
STX EPS 
BG LDX NOOR 

LDO BORD, X 
BNE BL 

■ 

* PION PROMOTIE * ' 



DliECTOity DISK 1 'SYSTEM L0Y8 DISKETTE' 
for Elfktor'i OdOPUS cntfn^m' 



BH 



BI 



BJZZ 



BK 

BL 
BM 



CPX 
BCC 
CPX 
BCC 
LDX 
LDO 
PHO 
ORO 
STO 
LDO 
LDX 
9T0 
OND 
CMP 
BEQ 
TOX 
LDO 
PHO 
CLC 
ODC 
STO 
DEC 
JSR 
PLO 
STO 
INC 
BNE 
PLO 
STO 
JMP 
JMP 



#8 

BI 

#$38 
BM 
VON 
BORD, X 

#3 

PROM 
PROM 
VON 

BORD, X 
#7 
#7 
BK 

WRDE 



TSW, X 
WRDE 
WRDE 
MOVE 

WRDE 
PROM 
BJZZ 

BORD.X 

BOK 

BQJ 



* TEST OP SCHOOK * 



BN 



LDO 
PHO 
STY 
LDO 
STO 
STO 
ASL 
JSR 
LDX 
LDA 
BEQ 
LSR 
BCC 



EPS 

EPS 

#$40 

VON 

NOOR 

NZET 

MOVE 

#$BF 

NZET 

BBB 

NZET 

BBC 



* KORTE ROCHODE * 

JSR RC 

BCS BONZ 
INX 

LDO BORD, X 

STX NOOR 
INX 

ORO BORD, X 



I 
I 
I 

I By i Fernando Lopez, Portugal 
I 

I TRACK 

I 



SECPA6 



MEMRY 



NflfE. 



KSCRIPTION 



00 
01 
02 



I 03 - 
I 04 - 
I 05 - 
i 06- 

I 
I 
f 



I 07 - 
I 06 - 
I 08- 
I 10 - 
I 11 - 
I 12 - 
I 
I 



I 
I 

I 13 - 
I 



8 
B 
8 
8 
8 
8 
1 
1 
1 
4 



14 - 

15 - 

16 - 

I 17/18 
I 19 - 
I 20 - 
I 21/23 
I 

I 24 - 
I 25 - 
I 2B- 

J 
t 



I 
I 

I 27 - 

I 28/30 

I 31 - 
I 

I 32 - 

I 33/34 
I 

I 35 - 
I 

I 3fi - 



1 ■ 

1 

1 

1 

1 

1 

1 

1 

1 
1 
1 
2 
3 
4 
S 
fi 
7 
1 
1 
1 



8 
8 

1 
1 
1 

^1 
1 
I 
1 



1 - 8 
1 - 8 

1-1 



i 
I 



I 37- 1-8 



I 



1 

2 



I 

S 
2 



2200, 29FF 
2A00,31FF 
0200, 09FF 
0A00,11FF 
1200 19FF 
lfl00,21FF 
2200, 22FF 
3200, 32FF 
0000, OOFF 
E400,E7FF 

0200, 09FF 
OAOO.UFF 
1200, 19FF 
2200, 29FF 
2A00,31FF 
2E79 2F78 
2E79,2F78 
20C4,21C3 
2E79;2FH 



5-2 ODOO,OEFF 



B 3274,3A73 

8 
8 
8 
8 
8 
B 



5C00,5CFF 
5DO0,S)FF 
5E00,5EFF 
5FO0,5FFF 
5C00,5CFF 
2SM,2G9F 



8 0200, 19FF 



^,06FF 
2000, 21FF 



V3.3/1 

V3.3/2 

BAS/1 

BRS/2 

BAS/3 

BAS/4 



ftSN/1 

ASM/2 

ASM/3 

T0V3.1 

T1V3.1 

DIRECT 



COPIER 



DIR 

MER6E 

COPYM 



RENAME 

UPl.l 

TRACE 

NUMCON 
F0RCE2 

ATNENB 

mm 

PARSER 

DUMPt 
CON/TO 



OS-fiS) V3.3 part I 
OS-fiSD VI 3 pari 2 
BASIC part 1 
BASIC part 2 
BASIC part 3 
BASIC part 4 
BASIC part 5 
0S-fi50 V3.3 part 3 
OS-eSD V3.3 Dart 0 
BAS/ASM/UP HANDLER 
DOS EXTENSIONS 
SHORTHAND BflgIC 



0S-6SD V3.2 part I 
0S-65D V3. 2 part I 
DIRECTORY part ! 
DIRECTORY part I 
PSIC OVERLAYS 
PUT/SET OVERLAYS 
(BASIC) 

FULL SCREEN EDITOR 
for BASIC 

08-fiSD V3.3 part i 
UTILITIES (DISK/) 



COPIER UTILITY 

CHANGE PARAM. UTIL 
■ 

6RRB. COLLECTOR AND 
UTILITIES 
DIRECTORY UTILITY 
FILE MERGE UTILIW 

KSi CREATE tftlL 



RENAME FILE UTIL 
HOROPROCESSOR 
TRACE (BASIC PRQ6. 

UTILITY 

NUMBER CONVERSION 
VT-52 COMPATIBLE 
TERMINAL 

ATN VI PRINT EX- 



FILE-MERGE 

BASIC-TEXT 

CALC PARALLEL AW 

SERIAL RESISTOR 

DECIMAL DUMP UTIL 

CONPRR / TRACK lERO 
■ 



21 





DO 


26 


> 246 




06 


06 


> 247 


2960! 


20 


8E 2fl 


> 248 


2970! 


46 


06 


> 249 


2972! 


90 


ID 


> 250 


2974: 


fl6 


05 


> 251 


2976 


E8 




> 252 


2977 


E8 




> 253 


2978 


66 


04 


> 254 

> 255 


297fl 


E8 




297B 


B5 


16 


> 256 


297D 


94 


16 


>257 


297F 


. CA 




>258 


2S80J Cft 




>259 


2981 

2983 


: 95 


16 


>260 


: 20 


65 2B 


>261 


2986 


: A& 


05 


>262 


2988 


: E6 
: B5 




> 263 


2989 


16 


>264 


298B 


! 3a 


16 


>265 


298D 


! EB 




>266 


298E 


: E8 




>267 


298F 


: 95 


16 


>26a 



2991 ! 

2994 ! 

2995! 

2997: 

2998: 

'2990: 

2990: 

299D: 

299F: 

29fl0 : 

2902 : 

2904: 

2906: 

2909 : 

290B: 

290D: 

29flF: 

29B0 : 

29B1! 

29B3: 

29B4: 

29B5 : 

29B7 : 

29B9 : 

29B0: 

29BB: 

29BC: 

29BE: 

29C1 : 

29C3: 

2904: 

2906: 

29C8: 

29C9: 

2^! 



29CD 
29CF 
29D1 
29D3 
2904 
29D6 
29D7 
2908 



20 F8 
Oft 

BO 36 
Cfl 

66 04 
B5 16 
CO 



16 

16 
29 
06 



15 
CO 
15 
DO 
06 
20 8t 
46 06 
90 20 
06 05 
CO 
CO 

86 04 
CO 
CO 
B5 



1.6 



94 16 
E8 

EB 
E8 

95 16 

20 66 2B 
06 05 
CO 

B5 16 
94 16 
CO 
CO 



06 06 
DO 02 
86 08 
68 

85 13 

98 

38 

E5 08 



>259 
>270 
>271 
>272 
>273 
>274 
>275 
>276 
>277 
>278 
>279 
>280 
>281 
>2B2 

> 283 
>284 
>285 
>286 
>287 
>288 
>289 
>290 
>291 
>2g2 
>293 
>294 
>295 
>296 

> 297 
>298 
>299 
>300 
>301 
>302 
>303 

> 304 
>305 
>306 

> 307 

> 308 
>309 
>310 
>311 
>3i2 
>313 
>314 
>315 
>316 
>317 
>318 



BNE 


BONZ 


flSL 


NZET 


JSR 


MOVE 


LSR 


NZET 


BCC 


BONZ 


LDX 


vcm . 


INX 


INX 




STX 


NOOR 


INX 




LDO 


BORO, X 


STY 


BORD, X 


DEX 




DEX 




STO 


BORD, X 


JSR 


MVRO 


LDX 


VON 


INX 




LDO 


BORD, X 


STY 


BORO, X 


INX 


INX 




STO 


BORD, X 



* LONGE ROCHODE * 



BONZ 



JSR 


RC 


OSLO 




BCS 


BBO 


DEX 




STX 


NOOR 


LDO 


BORD, X 


DEX 


ORO 


BORD, X 


DEX 


ORO 


BORD, X 


BNE 


BBO 


OSL 


NZET 


JSR 


MOVE 


LSR 


NZET 


BCC 


BBO 


LDX 


\fm 


DEX 




DEX 




STX 


NOOR 


DEX 




DEX 




LDO 


BORD, X 


STY 


BORD, X 


INX 


INX 




INX 




STO 


BORD, X 


JSR 


MVRO 


LDX 


VON 


DEX 




LDO 


BORD, X 


STY 


DEX 




DEX 




OEX 




STfi 


BORD, X 



* EIUDROUTINE CflLC * 



BBB 
BBC 

BBD 



LDX NZET 
BNE BBC 
STX ZMRO 
PLO 

STO EPS 

TYO 

SEC 

SBC ZWRD 



PQSVflL SCHflflKM ONITDR 

Uijzigingen in gepubliceerde listii^ 

Door : Frans RaaijMkert. 

Ik heb de gepubliceerde listings mg eens nagekeken. On- 
danks alle eentere kontroles, zijn er een paar foutjes in- 
geslopen, twee in de prograeealisting zelf en een grote in 
de inforaatie over de beginadressen van de verscnillende 
routines op pag. 27 van editie 45. De Hijzigingen die 
nodig zijn in de thans gepubliceerde listing konden niet 
■eer venierkt irarden en mrden eveneens hierbij gegeven. 

Neteen in twt begin vm het prograau op regel 16, editie 
45, ttaat JSR $2000. Dat eoet zijn JSR ADD (20 0^ 20). Op 

aina 27 staan de adressen van de schaaktenitor en POSVAL 
ke alt volgt Meten Mrrin amijzigdi 
990»2B9B SF3>2EFB 683 » 2C&B 

iRS«2MD |R;-2&M W$^(Zm 6aO>2C35 

Di IRQ en NMI adressen aoeten nog aanoepast mrden. Zie de 

listing in deze editie. Uijzig deze als volgt: 

2C9E«A2 7F 2CA3 > R2 2B 2CI» * 02 2C 2CflD « fl2 2fl 



■gsgsOsgsosgsosgsgsososgBosososgsgsosgBososoBosoaQsgagsgsQ 



iO;BEll-routine for OCTOPUS/ECGS 
20:Nith BASICODE interface-card 
30;By Coen Beltjes 015-136812 
40; VIOIBUS 400029830 
50:The routine can be placed after 
60;the PRINTKX.Y) routine of tlit 

70:ELECT0R cmnrTiic special 2. 

80;and produces an 'Bleep' on the 
90;outpat 8 of IC4, Hhich can tw 
100;connBcted with an aaplifier in 
110: for exaaple your tonitor. 
120;You have to adjust the VIDED- 
130;CoMandinterpreter in the EPRON. 

140;$F398 $18 " - 

150;$F3B9 $FF 
160;«F3BA «FF 
170;<F3D9 $FF 
180;«F30A $FF 
190:ParaMeters for 2 MHz 
200: 

<>ie280 



«1A END OF TABLE 
) <00 NO ESCAPE 
) $07 ASCII BELL 
) LSB of KLL 
) MSB of BELL 



LOA «80 
LDY MFF 

STA OUT 

LDX mo 

OEX 

BNEBELLB 

EORltBO 

DEY 

BNE BELLA 



;BASE I/O ADDRESS 

;DEFINE LENGTH 
•DEFINE HEI6HT 



210dUT 
220: 
23MELL 
240 

2S0BELLA 
260 

270BELLB 
280 
290 
300 
310 
320 

330. END 

340;You noM can iepleeent the BASICODE 

350:subroutine 250 

360; 250 PRINT CHR$ (7) ; : RETURN 



>)LqOP 



WT7 



>)NOT READY 



JM> <F00F ;EXIT VIA VIDEND 



2-2 



Lii B 5 in 



29Dfl: 
29DC: 
2gDD! 
29DE: 
2gE0: 
29E2! 
29E4! 

2gEe. : 

29E8: 
29Efl : 
29EC: 
29EE: 
29F0 : 
29F2: 
2W& i 



85 OS 

98 

36 

E6 OB 
85 OB 

05 15 
49 FF 
85 15 
C6 OC 

06 OC 
EC 02 
DO 04 
fi5 06 
85 91 
60 



29F5: Eft 
29F6: Eft 
29F7: Eft 



29Fe! fl2 04 
29Ffl: 05 Oft 



29FC: 
29FE: 
2fl00: 
2fl02: 
2ft02 



24 15 
50 04 
ft2 M' 
00 
00 



2004: 86 05 
2006: 00 



2008 : 
200ft: 
200C : 
20 OE : 
2hOF: 
201 1 : 
2013: 
2014: 
2015: 
2016: 
2017: 
2019: 
201B: 
201D: 
201E: 
201F: 
2020 : 
2022: 
2024 : 
2025: 
2027: 
2ft29s 



MO 

02 
B?> 
18 
69 
95 
40 
40 
40 
40 
85 
B5 
2'^ 
00 
00 
00 
05 
95 
CO 
10 

86 
4C 



0 j 
FO 

5F 
Fft 



14 
FO 
07 



14 
01 

E5 
9(") 

6E 



202E: 
2030 : 
2032: 
2033: 
2034: 
2036 : 
2038: 



> 32U 
>321 
>322 

> 32!3 
>324 
>325 
}326 
>327 

> 328 
>329 
) 330 

> 331 
) 33k! 
>333 
>334 

> 335 

> 336 
• > 337 

>338 
>339 

> 340 
>341 

> 342 
>343 
)344 

> 345 
. •, >346 

> 347 

> 34H 
>349 

> 350 
>351 

, >352 

■ >354 
>355 

> 356 

> 357 
>358 
>359 

> 360 
) 361 
>362 
) 363 

> 364 
>365 
>366 
>367 

> 368 
) 369 
>370 
>371 
>372 

> 373 
>374 

> 375 
2Pi )376 

> 377 
>378 
>379 



84 00 
06 90. 
hO 5S' 
90 
ES 

86 OD 
86 90 
86 OF 
86 OC 
02 01 

as 11 



EXCL 



STh 




1 YH 








T Mr 




STO 


WRDE 


LDO 


CKOZ 


uU " 


fr r 


CTD 
O i H 






NIVO 


LDX 


!MtVQ 


CC'X 


#2 


BME 


EXCi- 


LDfl 


NZET 


STO 


DZET 


RTB 




NOP 




NOP 




., NOR 





I 



TE KOOP 



Elektuur JUNIOR dtet 65C02 Rockwell, 2 ♦ BO tracks drives 
(SD) + 64 K + universele Epro« kaart «et 7*4 K Eprois, 
alles werkend «et 6 - K blok en bank-sHitching, inclusief 
•onitor-teritinal + 20 floppy's, alle voedingen, de 4 
JIWIOR boeken en kast. Geheel : Hfl, 1.200,==, 
Te bevr. : Jan Verniinen, Van IJsewJijfcstP. i«it CS 

PttMerend. Telf. : 02990 - 21739. 



* iNSPEKTii^ soqHftDe cede roco * 



» INPUT * 

MI 



LDO 

EiTT 

BVC 
LDX 
OSLO 
OSLO 
5TX 
flSLft 
RTS 



#4 

ftOCO 
CKOZ 
RGI 
t«3C 



VON 



LDY 
LDX 
uDh 
C;.,C 
ODC 
STO 
LSRO 
lSRO 
LSRP 
LSkO 
F:TO 
LDO 
AND 
flSLft 
OSLO 
OSLO 
ORO 
STO 
DEX 
3PL 
STX 



#*5F 



hULP 
#7 



HliLP 
ZETII, X 

WIS 



* HO^ROtmhlE DEEL B'WS * 



Author: Ronald Hermens, The Netherlands. 
Systei! ELEKTOR's JUNIOR-computer 



I ERROR MESSflGES MICRO-ftDE, ftDflPTED FOR JUNIOR , 



NR. 



I ADDRESS OF 
I BRK.INSTR. 

+ 

07 I $2905 
I $3612 

} mm 



REASON 



IC 



2A i $3826 
3B I $2439 
$3147 
$3B48 
$2E50 



49 
4fl 
52 



68 

6F 
74 
7B 



$2366 
$286D 
$3372 
$3379 
8C I $3B8A 

9E I %m: 



> 380 B^EftK 


STY 


ZETI 


1 


>381 , . .. 


LDX 


WIS 


1 


>38? 


BEQ 


0ISP 


DF 1 $37DD 

1 


) 33ij 


TXS 




> 384 


INX 


czo 


E2 1 $28E0 


)385 


STX 


F6 1 $2fiF4 


) 386 


STX 


WIS 




) 387 


STX 


PZET 


MHf«««ft(9C) 


>38e 


STX 


NIVO 


miiHti<E7) 


> 389 


LDX 


#1 




>390 




MAX I 




>392 


LDX 


#3 





I INSTRUCTION SYNTAX ERROR 

I SK COMMAND WHILE K-FLAG = OFF 

I INSERTION OVERFLOW 

I ONLY (=9 LINES m AQOUED 

23 I $2921 I ILLEGAL ADDRESS MODE 

26 I $2224 I ATTEMPT TO MOVE BEYOND THE END OF FILE 

I CAN'T FIND 'FROM' LINE OR 'TO' LINE 

I SK: first line NOT FOUND 

I SOURCE FILE SPACE IS FULL 

I ERROR IN 'V -COMMAND 

I VK: K-FLAG not SET 

I TOO MANY 'BACKSPACES' TYPED, 

I CAN'T 60 BEFORE BEGINNING OF LiNt 

I COMMAND SYNTAX ERROR 

I SYMBOL ALREADY EXISTS 

1 NO ARGUMENT SUPPLIED 

I NO ARGUMENT NEEDED 

I SA: )= 2 PARAMETERS GIVEN 

I COMMAND PARAMETER SYNTAX Ef^ROR 

I PARAMETERS SHOULD BE 0 TO 2 NUMBERS 

I SYMBOL TABLE OVERFLOW 

I UNDEFINED SYMBOL 

t CHECK ZERO-PflGE WITH ABS IS fPilSt 

I SEE $3C9C MEANING = " 

I ERROR IN 'V -COMMAND ''W^ 

I SPACES IN + - ARITHMETIC ADJUSTMENTS 

I ATTEMPT TO MOVE BEGINNING OF FILE 

I ERROR IN "SPACE" $24B2, BLO,BHI 

I NOT IN SOURCE AREA, YOUR SOURCE IS 

I ALREADY MUTILATED 

I K: « PARAMETERS MUST BE 

I 0: RESET K-FLAG, OR 2: SET K-RAN6E 

I ADDRESS MODE SYNTAX ERROR 

I BRANCH OUT OF RANK 



FOLLOWED BY 

AND THIS REPEATED ENDLESSLY 

CAUSE: ERROR IN FNDND $2496 

THIS ROUTINE LOOKS FOR END OF SOLIRCE 

SYMBOL, EVEN OUTSIDE SOURCE AREA, WHEN T 

READS Addresses on pia, cpu, it will set 

OFF THE TIffiR. WHICH BEICWITES INTERRUPTS 

UNTIL YOU HIT km, m m-iHmk.m this 
PIfl. 



A4 i $28A2 

A8 I $29fl6 

m I $3CB4 

I 

B9 I $31B7 

CI I $3CBF 

04 I $24D2 



23 



iHClZ • 

^'Q/i/i • 
iH<*'* ■ 


0C 

tJo 


1 o 


/ 




3 1 A 


MQY T T 




f "i 












» ' 


2M7: 
2ft49: 


ftS 








LDO 


$06 




85 


r-q 






STO 


DISPl 




2flAB : 


C4 


OA 


> 397 




CPY 


$06 




2MD : 


?0 


J, 1 






BEQ 


CODE 




2h4F: 


fi2 


n 1 






LDX 


#1 




2051: 
2053: 


B5 


f)1 


> AOf) 


Mil 1 


LDO 


ZETII, X 




40 




> AC)\ 

f '+V i. 




LSRO 




2054: 
2055: 


40 








LSRO 






40 




> 403 




LSRO 






205fa: 


65 


] 4 


> 404 




STO 


HULP 




2058: 


B5 


01 


> 405 




LDO 


ZETII, X 




29 


07 


> 406 




OND 


#7 




205C: 


00 




> 407 




OSLO 






205D: 


OP 








OSLO 






205E: 


00 




> 409 




OSLO 






2fl5F: 


00 




> 410 




OSLO 


HULP 




2060 ! 


05 


14 


> 41 i 




ORO 




2062! 


18 




>412 




CLC 


#$01 




2063: 


69 


01 


>413 




ODC 




2065: 


95 


FO 


> 414 




STO 


DISP2, X 




2067 . 


CO 




> 415 




DEX 




2068 ' 


10 


E7 


> 416 




BPL 


Mill 




20&Ai 


fl5 


00 


> 417 




LDO 


ZETI 




206CI as 


pg 


) 418 




STO 


DISPl 










> 419 








■ 








> 420 


# OUTPUT 


* 












> 421 








■ 




Aft 


OD 


> 422 


MV 


STX 


CZfi 










> 423 




TXS 








CO 




> 424 




INX 


NIVO 








oc 


> 425 




STX 




■•■'074 


EQ 




> 426 




INX 


MAX I 




2075 


86 


1 1 

1 1 


> 47'7 




STX 




2077 


86 




> 428 




STX 


MAX 1 1 




2079 


20 


OA vA 


> 429 




JSR 


CALC 




207C 


fig 


FP 

r F 


> 430 


FOUT 


LDO 


#$FF 




207E 


85 


FQ 






STO 


DISPl 




2080 


ft9 






CODE 


LDO 


#$C0 




2082 


85 


PR 

r O 






STO 


DISP3 




2084 


fl9 


nF 






LDO 


#$DE 




2086 


85 


FQ 






STO 


DISP2 




2088 


4C 


on •5FI 




DISP 


JMP 


MM I 




20aB 


! 4C 


AA •70 


> 437 




JMP 


DISP 








> 438 






MOVE ROCHADE'* 








) 439 


* SUBROUTINE 
















■ 


20eE 


• 84 


(")F 




MOVE 


STY 


CZO 




2090 


: 06 




> 442 




LDX 


NAOR 




2092 


: B5 


1 f, 


> 443 




LDO 


BORD, X 




2094 


! 85 


09 


> 444 




STO 


STUK 




2096 


: DO 


15 


> 445 




BNE 


BIO 




2098 


: C4 


06 


> 446 




CPY 


NZET 




209fl 


: FO 


*T'' '7' 


> 447 




BEQ 


BO 




209C 


: PIS 


1 1 


> 448 




LDO 


MAX I 




209E 
20fl0 


: C5 


or 


> 449 




CMP 


NIVO 




: BO 




> 450 




BCS 


BO 




20fl2 


: E6 


Ofi 


> 451 




INC 


NZET 




2004 


: 05 


OB 


>452 




LDO 


WRDE 




2006 


: C5 


08 


>453 




CMP 


ZWRD 




2008 


: 30 


02 


>454 




BMI 


BJ 




2000 


: 85 


08 


>455 




STO 


ZWRD 




20flC 


: 60 




>456 


BJ 


RTS 


CKOZ 




20flD 


: 45 


15 


>457 


BIO 


EOR 




20flF 


: 29 


40 


>458 




AND 


#$40 




20B1 


: FO 


00 


>459 




BEQ 


EXM 




20B3 


: B5 


16 


>460 




LDO 


BORD, X 




20B5 


: 29 


07 


>461 




AND 


#7 




20B7 


: C9 


02 


>462 




CMP 


#2 




20B9 


! DO 


03 


>463 




BNE 


BO 





HIER PATCH VDOR CPENINd^^ 



laRRECTiQt m THE 68III mmi 




In rereading ny article about the t 
two more or less significant errors: 

- The exanple in section 3 should be: 



MOVEA.W »iFFFF,A8 
mm.L WFFFF/" 



Nfttti M use N in sttai ttlli, M coataifls If F^. 

The Addressing nodes: Absolute Register Indirect 
Addressing with Index and Program Counter with 
Index are incorrect described. The right description 
is: The contents o-f an address or data register is 
added to another address register. An 8 bit signed 
displacement is added to this result giving the 
address of the operand. So the indirection is 
always in an address register, never in nenory. 

This fieans that indexed addressing ZERO and ABSOLUTE 
X and Y on the 6582 is also present on the 688II and 
indexed indirect and indirect indexed are not 
present on the ANN. 



Id 



EI-WEG 



20 REM De volgende subroutine kan bij APPLE van p 

as koaen als je een invoer 
30 REM wilt plegen jet .kjgfH's en/flf datoele p«nt 

40 REM 

50 REW Je krijgt wel een EX^Rfl IBMip iwl«i^'' » 

aar deze heeft geen iiwlofd 
SO op de snemiiil^: m: Wk - 

70 REW 

80 REM Ffans ^mm^ m^itm 

.% REM 
im REM 

INVOER MET , EN ! .. 
1010 INPUT IN»: REM Haal een invoerreg 

1020 LE = LEN (INS): REM Bepaal lengte hief 

van 

1030 IB = 512: REM S0200 = begin Ivfu 

tBuffer voor APPLE 
1040 CH = PEEK (IB + LE): REM ...Haal karakter 
1050 IF CH = 0 THEN 1090: REM ...Einde input = $00 
1060 IN* = INS + CHRS (CH); JffiM .Zet dit karakter a 

a INS 

1070 LE = LE + 1: REM ....,» .Verheog Lengtetell 

er 

lOeo GOTO 1040: REM ............ wit feijit imtr ««!(» 

nd karakter 
1090 RETURN 



24 



2flBB 


: C6 


OE 


> 455 




DEC 




20BD 


: 6(") 




> 466 


A) 1 


r\ 1 o 




2PBE 


: ft2 


08 


> 467 




1 nx 


#6 


2PIC0 


: B5 


03 






1 HQ 


PROM, X 


20C2 


: 46 








K nM 


20C3 


: cfl 




> 470 




UlL A 




2flC4 


: 10 


FO 


> 471 






ROT 


2ftC6 


: PO 


06 


> 472 




1 DY 


TTtJ 


20C8 


: 05 


00 






1 HQ 


Rnrn 


2ftCfl 


: B5 


83 


> 474 








2PICC 


■ 




> 47*=; 




Ur- A 


VMIM 


2fiCE 


: FO 


04 


> 476 








20D0 


: E4 


04 


> 477 




CPX 

w~ A 


NOOR 


2PID2 


: DO 


03 


> 478 




BNE 


BIC 


2flD4 


! 19 


89 00 


> 479 


BIB 


ORO 


$89, Y 


2fiD7 


: 88 




> 480 


BIG 


DEY 


2fiD8 


: DO 


FO 


> 481 




BNE 


BIO 


2flDP 


: 85 


00 


> 482 




STO 


ROCO 


20DC 


: 


05 


> 483 




LDX 


VON 


2ftDE 


: B5 


16 


> 484 




LDO 


BORD X 


2flE0 


: 94 


16 


> 485 




STY 


BORD X 


2fiE2 


: A6 


04 


> 486 




lDX 


NOOR 


2AE4 


i 95 


16 


> 487 




STO 


BORD X 

LJ\^ l\XJ . A 


2flE6 


: ft5 


09 


> 488 




LDO 


STUK 


2ftE8 


: FO 


00 


> 489 




BEQ 


BID 


2ftEP 


: 29 


07 


> 490 




AND 




2ftEC 


: Pift 




> 491 




TOX 




2ftED 


• 05 


OB 


>492 




LDO 


WRDE 


20EF 


18 




> 493 




CLC 




2ftF0 


75 


5D 


> 494 




ODC 


TSW X 


2ftF2 


85 


OB 


> 495 




STO 


WRD& 


2ftF4 


A5 


OB 


> 496 


BID 


LDO 


WRDE 


2ftF6 


85 


08 


> 497 




STO 


ZWRD 


2flF8 


fl5 


12 


>498 




LDO 


MOXII 




C5 


OC 


>499 




CMP 


NIVO 


SfiFC 


90 


03 


> 500 




BCC 


BRO 


2ftFE 


20 


06 28 


>501 




JSR 


COLC 


2B01 


ft2 


00 


> 502 


BRO 


LDX 


#0 


2B03 


68 




> 503 


BIE 


PLO 




2B04 


95 


03 


> 504 




STO 


PROM, X 




E8 




> 505 




INX 


2B07' 


EO 


05 


> 505 




CPX 


#5 




DO 


FS 


) 507 




BNE 


BIE 




24 


OF 


> SOS 

/ i_f V tJ 




BIT 


czo 




FF. 


OE 






INC 






68 




> 510 




PLO 




1 0 : 


70 


3E 


> 51 1 




BVS 


BIK 


?R 1 V ; 


E6 


06 


> "=11 •> 






M7FT 




24 


05 


) SI 




RTT 


V niM 


r'R16: 


70 


38 


> S14 










fl6 


OC 


> 515 




LDX 


NIVO 


j'B 1 ft : 


EO 


01 


> 516 




CPX 


#1 


JBIC: 


DO 


2E 


> 517 




BNE 


BIJ 


2B1E! 


24 


OD 


> 518 




BIT 


czo 


?B20: 


70 


IE 


> 519 




BVS 


BIH 


2B22 ! 


C5 


08 


> 520 




CMP 


ZWRD 


>B24: 


DO 


09 


> 521 




BNE 


BIF 


?B26: 


4C m 27 


>522 




JMP 


w ■ wwn 


iB29: 


Efi 




>523 




NOP 




?B2fl: 


DO 


03 


> 524 




BNE 


BIF 

t.' J. r 


2B2C: 


CD 


F4 10 


>525 




CMP 


TIMER 


2B2F: 


10 


IF 


>526 


BIF 


BPL 


BIK 


'iVtT A ■ 

iB31 ! 


06 


91 


> 527 




LDX 


DIET 


2B33: 


86 


OF 


>528 




STX 


PZET 


>B35: 


02 


02 


>529 




LDX 


#2 


?B37: 


B5 


03 


> 530 


BIS 


LDO 


PROM, X 


?B39: 


95 


00 


>531 




STO 


ZETI, X 


!:B3B: 


Cfi 




>532 




DEX 


JB3C: 


10 


F9 


} 533 
>534 
>535 




BPL 


BIG 




30 


12 




BMX 


BIL 


IBAO: 


02 


02 


>536 


llH 


LBX 


«2 


iB42: 


B5 03 


>537 


BII 


LOA 


PRO«,X 



fl» NetHerlawfs 



Uhen I had the intention to connect a printer with a 
serial interface en %00 S>S by using ready/busy hanoshaie 
on pin 5 {CTS) to the fCIfl of Elector's CPU card, it $ii 
not wrk at all. Because I,s in favourable circuastances 
havinc a datascoop, I was enabled to exastne the RCIA's 
output. To ay astonishaent there Mas nothing coting out at 
all in spite of chancing all data fonwts of the datascoop 
so it had to be anything else. 

I checked the straps on the CPU card over and over again, 
corresponding to the Ger»an 'Sonderheft 19'. There was no 
Mstake found on any strap so the next step was looking 
into the source-listing of Paper«re 3. Here I discovered 
the nistalite there has been nade. Tn the 'Sonderieft 111" 



the cofNiand register i§ 
register :s prog««iietf 
done in reverse. 
So there were tw solutions 
or dianging in the routine 



»Jt mi t* control 



reversing Pl3 and PL4 straps 
'CTLD©' the savi*^ *f — ^ ~ 



He WMftCt for Elector's OCTCPl^-co»?uter: »STQrn?'H 
(OCTImJSRWTH 1.2) on tuo 80 traces single s.de eis«ei;;ts<| 
containing tiie neti PiKT>*-co«piIer anc all source-scree?!, 
developed by oyr netnoer ^^ricus Joni<«an, Tie 'Vet'srla^'cs, 
coipleted witi ?iat^ aanual. 

'J?at is STfi? ?CTfl is a Brogran to; |f»erate a. Re* -W- 
f ros smms-'^fmm, tiat cesfii>ii# « FS"?!". *E*t can 5e 
used to 

- relocate yDv;r -CR'- 

- u^e a neacerless FOi?''-; 

- (MH? a !83f»-a3le cade 

- aawe changes any»»riere ;n -uR'^f-" 

• w^e dedicatee '0^'"-5veteii5 *;t- .) »;;:: 
The^jB* -ill start at tie value of t' 
i^H'hS'^^h-?', x'rc-i cif: ^e ('"-^■iQec'. is a 
•ithin the K^i*Bl.E'?-v£tat(ula^'y. 
INi?i *8r iw-re at the editeritrifFsc*. 



•'* ..it.'.a-'le 




altijd als 
Boljlnson Crusoe. 



OK 



:.bay- - 




'.J \) 
















i SAT) 






RT T 


■'R/iA ■ 










DFX 






1 0 


F7 






BPL 


BI I 




Ac") 








BRK 


























RT T 








n5 


OA 


■> -=^AA 




CMP 


i. W "A L/ 


■'PAP " 










RMT 


RTi 


•'hSO ' 




n A 


> SAP 






7iAiRn 




At: 
hd 


f"i ''i 




PI T 1 




! Vrlrl ~. 




P/i 

D 


i D 






1 nv 




LOUD ■ 


t-'O 




\ cr cr H 
/ .^ij 1 








''"CiKI ■ 




1 D 


/ _j J*: 




D 1 H 


onpn Y 

D'JIaU, a 


Lt^DlJ ■ 


Hb 








._Ly A 


VMiV 




q/, 




> SSA 




'tTV 


c'^r^u J A 




DO 








PL ft 




AS 


Oft 






sf ft 


ROCC 


O ill " 
. D DL' ■ 


DO 








" *— n 




■'P'<H 1 ■ 










BTfl 




''F^A3 : 






) 559 




LDY 


#0 












i\ •— ' 




_ :.. C'D - 






/ iJO J. 


■ I V "U 


1 no 


#1 


.. L.-D'-i 




OP 








NIVD 


'.' tj C ~\ 0 

.. il.'Dn ' 


T'l t " 1 


■/ 


> ^F.'\ 

/ ■_' CJ 




BNE 


l^'VY 




A/i 


nP 


t -J D 






P7FT 


:.'.Hb- S 


~w ^ 

^1. ' .■ 




/ ,JO. . 


(YiUV 


u on 




^L- / .1. ■ 










RTS 




;B72 : 


P4 


05 


> 567 


='TCh 


LDY 


VAN' 






03 


) 563 




CPY 


*3 








> 56^ 






E*^'C 




P. A 


Q 1 


> 570 




STX 


DZf- ' 


>R7Q ! 






\ 571 




i.DX 


PZE" 






4 1 

^ J. 


> 572 




CPX 


0/ET 








) S73 




RTS 










) 'zflk 














> 375 


* NMI * 




>■»'' 








> '•)76 








. r - ■ . 




( ' • ' 






LDA 


#0 

■-'BD 


■'f-'P-'l ! 

Pii'i ; 


r,' .!..' 

H .3 




\ tr 7 q 




i O'-j 

', - L.' " 


■tt f ■ 


' L''^ & ^: ° 






^ R M /' 1 

■ Ju* ' 








y S3 ' 






/ -JCJ I 




i~i £*' 






C / j 




.' .,'Oj-.. 




NL'r 










\ c." jTi "■: 




MflD 






u. H 




J J O ^ 








:.n*QL. ■ 














ZV OA" 

ir-ou 






> ^1 M f"! 




Mflp 




"'D etc • 


■IT f^i 




/ -JC' ^ 




NiOP 




jtl'Du • 
.. O • 


t-H 




'i SAQ 








.. t,i I'V.' ■ 






\ s^AQ 




Mi.''- 




.. D 3 .1 - 


t-H 








Ninp 




'■r o "■ " 






\ i 




Ivl.'*- 




■i r n-r > 
., b i • 


^rl 




\ "^TO "' 










CrH 




fi'l'^. 




^^^p 






4 1.. 








Jjyjp 




: b 3t) • 




DC* in 


■■, nrnrr 

/ 3 ■ . J 














\ CTQC 

/ J 3b 








:r.< rfU ■ 


it: 


o c i U 


\ irQ-7 




T S R 




.. .w-'H'--. 


PTj 




■ 3C' 




D W 








Be i U 


' J 7 




TCD 
J vJ?T 








*- b 


/ O 






"f ^'i p C' 








> £0 1 














) b02 




STfi 










) £03 




RTS 




iBflU : 




Fy 


) £04 




lDPi 


DISPl 


iBA" : 




06 


>605 




BEQ 






fly 


03 


> S06 




LDfl 


#3 




85 


!- 6 


) 607 




STfi 




iBBS : 


DO 


04 


> 608 




BNE 




I'BB7 : 




02 


■> 609 




lDO 


#2 




85 


F6 


>610 




STfl 




;BfiBs 


20 


98 2B 


>51.1 


s-rmmm' jsr 


TDDSi 




; JUMP INPUT 

; STUUS »m,ft¥S 

; Z-:t TGE"SwAhR,DE IV 
; KEYBlJFPER 



-, S UiJ!'^ 4 D.'SPlhV h-S * -9=0: HNDERS 6 DiS^-'LAYS 



26 



E 5 □ S 



KEIMIMER 



BBE: 


29 


FO 




> 513 




AND 


#?S 1 1 1 1 OOOO 


BCO: 


DO 


12 




> 514 

> 615 




BNE 


MM4 


BC2: 


fi2 


04 






LDX 


#4 


BC4: 


06 


FO 




> 616 




ASL 


DISP2 


BCfc: 


26 


FB 




>617 




ROL 


DISP3 


BC8: 


CO 






>618 




DEX 




BC9: 


DO 


F9 




>619 




BNE 


MM3 


BCB: 


05 


El 




> 520 




LDO 


KEYBUF 


BCD: 


05 


FO 




> 621 




ORO 


DISP2 


BCF! 


85 


FO 




>622 




STO 


DISP2 


BDl ! 


4C 


B7 


2B 


> 623 




JMP 


MM2 


BD4: 


fl5 


El 




> 624 


MM4 


LDO 


KEYBUF 


BD6: 


C9 


14 




> 625 




CMP 


#*14 


BOB: 


DO 


03 




>626 




BNE 


MM5 


BDfl! 


4C 


95 


2C 


>627 




JMP 


PCMON 


BDD: 


eg 


12 




>628 




CMP 


#*12 


BDF: 


DO 


05 




>629 




BNE 


MM6 


BEl ! 


20 


31 


2C 


> 630 




JSR 


PMl 


BE4! 


4C 


B7 


2B 


>531 




JMP 


MM2 


BE7: 


C9 


1 1 




> 632 


MM6 


CMP 


#$11 


BE9. 


DO 


06 




>633 




BNE 


MM7 


BEB: 


20 


57 


2C 


>634 




JSR 


DAI 


BEE 


4C 


B7 


2B 


>e35 




JMP 


MM2 


BFl 


C9 


10 




>635 




CMP 


#$10 


BF3 


DO 


03 




>537 




BNE 


MM8 


BF5 


20 


8B 


2C 


>638 




JSR 


ODl 


BFe 


4C 


B7 


2B 


>63g 


MM8 


JMP 


MM2 










>640 


* CODEMON » 




BFB 


fl9 
85 


CO 




>641 


CQDEMON 


LDO 


#$C0 


BFD 


FB 




>642 




STO 


DISP3 


BFF 


fl9 


DE 




>643 




LDO 


#$DE 


COl 


85 


Ffl 




>644 




STO 


DISP2 


C03 


60 






>645 




RTS 












>646 


* VELDKODEMON 


* 


C04 


fl5 


92 




>647 


VKl 


LDO 


TEMP2 


C06 


18 






>64a 




CLC 




C07 


69 


60 




> 649 




ODC 


#$60 


COS 


30 






> 650 




BMI 


VK2 


COB 


05 


92 




> 651 




LDO 


TEMP2 


COD 


29 


OF 




> 652 




AND 


#?(000011U 


COF 


38 






>653 




SEC 




CIO 


E9 


01 




>654 




SBC 


#1 


C12 


29 


08 




>655 




AND 


#y.ooooiooo 


C14 


DO 


18 




>656 




BNE 


VK2 


C16 


■ 05 


92 




> 657 




LDO 


TEMP2 


CIS 


18 






> 658 




CLC 




C19 


• 69 


5F 




>659 




ODC 


#$5F 


CIB 


' 85 


92 




> 660 




STO 


TEMP2 


CID 


• 40 






> 661 




LSRA 




CIE 


. 40 






>662 




LSRA 




CIF 


: 40 






>663 




LSRA 




C20 


: 40 






> 664 




LSRA 




C21 


: 85 


93 




>665 




STO 


TEMP2+ 1 


C23 


: 05 


92 




> 666 




LDO 


TEMP2 


C25 


: 29 


07 




>667 




AND 


tt'XOOOOOl 1 1 


C27 


: 00 






>668 




flSLft 




C28 


: no 






> 669 




OSLO 




C29 


: 00 






> 670 




ASLO 




C2fl 


: 05 


93 




>671 




□ RO 


TEMP2+1 


C2C 


: 10 


02 




> 672 




BPL 


VK20 


C2E 


: 09 


FF 




>673 


VK2 


LDO 


#$FF 




! 60 






)674 


VK20 


RTS 












>675 


* PLUSMON * 




C31 


! 02 


01 




>676 


PMl 


LDX 


#1 


C33 


: B5 


FO 




>677 


PM2 


LDO 


DISP2, X 


C35 


: 85 


92 




>678 




STO 


TEMP2 


C37 


: 20 


04 


2C 


>679 




JSR 


VKl 


C3fl 


: C9 


FF 




>580 




CMP 


#$FF 


C3C 


: FO 


15 




>681 




BEQ 


PM3 


C3E 


! 95 


94 




>682 




STO 


Til«P2+2, X 


C40 


! CO 






>583 




DEX 


(', ' 


iC4ls 10 


FO 




>684 




BPL 





; TEST SOORT TOETS 

; NUM. TOETS - SCHLHF DISPLOYS EEN PDS. NOOR LImKS 
■ C'^r 

; 2ET NIEUWe WAflRUE IN RECHTER ©I«.ir. 



FUNKTIETOETS 
PC-TOETS ? 

JUMP PCMON 
+ TOETS ? , 

VOER ZET UIT 
JUMP STflRTMON 
DA-TOETS ? 



voer stuk in 

jump startmon 

ad-toets ? r . 

MAAK BORD LE£G 
JUMP STARTMON 

ZET CODE IN DISPLAYBUFFERS 



R£\£H NET BORDVFLD 0^^ 
NOOR I'NiTERN FQRMOOT 
KONTROLEER D£ GElDTSHEID 
VELD DNGELDIG OLS LINKEH'liliBLE + iO> 
OPLEVERT MSB=1 

IDEM ALS Ri<MTER NIBBlE --t > 7 



kodeer '■ : , 

DEZE ROUTINE REKENT HET .mjB 
INTERN FORMOOT r' ' 

Al = 00 H8 » 3F 



KEER TERUG MtT A=FF 
INDIE».VEt© » 0N6ELDIS 

PLUSMON VERPLAOTST EEN STUK 
KONTROLEER GELDIGhEID VELD 
EK MtK^ft I^LD I. 



! DI^AY CSBi imiEH ZET * WiaJfi 



27 



E^El 5 in KEIMMER 



2C43 


: flO 


00 




> 686 




LDY 


f:0 








2C45 


: fib 


95 




>687 




LDX 


TEMP2+3 








2C47 


! B5 


16 




)686 




LDO 


BORD, X 




VOER ZET JIT 




2C49 


! FO 


08 




>&89 




&EQ 


PM3 


• 


ZET VAN-VELD OP NflAR-VeLD 




2C4B 


■ 94 


16 




> 6'^ ■ 




STY 


BORD, X 








2C4D 


• fl6 


94 




>691 




LDX 


TEMP2+2 




ZET oo 




:'C4F 


! 95 


16 




>692 




STfi 


i^. sD, X 








2C51 


: 10 


03 




>693 






PM4 




1 1 




2C53 


: 20 


FB 


2B 


>694 




JSR 


CODEMON 








2CS6 


! 60 






' -gn 

> 696 


PM4 

* DOMON 


RTS 

# 










2C59 


: ftfi 


FO 




>697 


DAI 


LDX 


DISP2 


• 


DOMON PLOOTST EEN STUK 




FO 


19 




>698 




BEQ 


002 




KONTROLEER SELDIGHEID STUK 


2C5B 


! 80 






>699 




TXO 










2C5C 


: 29 


38 




> 700 




OND 


#%001 11000 




VOOR OLLE STUKKEN 6ELDT: 




2t:5E 


■ DO 


27 




>701 




BNE 


DA3 


• 


B3. Mi. B& * 01 




2C60 


8R 






> 702 




TXO 










2C:61 


29 


80 




>703 




OND 


#SlO0O0OOO 




EN 0^ 1^ * t 




2C63 


FO 


22 




) 704 




BEQ 


003 






2C65 


: 8fl 






> 705 




TXO 










2C66 


: C9 


CO 




>706 




CMP 


#*C0 




CO IS BEEN STUK 




2C6a 


! FO 


ID 




>707 




BEQ 


003 








2CSfl 


: eg 


81 




>708 




CMP 


#$81 


. 

1 


81 IS BEEN STUK 




2 CSC 


■ FO 


19 




> 709 




BEQ 


003 








2C6E 


: 29 


07 




> 710 




AND 


#;40000011 1 




" - ' 




2C70 


C9 


07 




> 71 i 




CMP 


#7 








2C72 


FO 


13 




> 712 




BEQ 


003 








2C7ii 


05 


FB 




>713 


DA2 


LDO 


0ISP3 


• 


KOfttTlOLECH rn'mmSSi VELi 




2C76 


85 


92 




> 714 




STO 


TEMP2 








2C78 


20 


04 


2C 


> 715 




JSR 


VKl 








2C7B 


C9 


FF 




> 716 




CMP 


#$FF 








2C7D 


■ FO 


08 




> 717 




BEQ 


DA3 








2C7F 


■ flft 






> 718 




TOX 






VOER STUK IN 




2C80 


. fl5 


FO 




> 719 




LDO 


0ISP2 




ZET STUK VON FA 




2C82 


. 95 


16 




> 720 




STO 


BORD, X 




OP VELO VAN FB 




2084 


! E8 






>721 




INX 








2C85 


• 10 


03 




>722 




BPL 


004 








2C87 


20 


FB 


28 


>723 


003 


JSR 


CODEMON 


t 


DISPLAY CODE INDIEN STliU 




2C8fl 


• 60 






>724 
>725 


004 

* flOMON 


RTS 

* 




y 


OF VElD ONGELDIB 




2C8B 


■ fl2 


3F 




>726 


ODl 


LDX 


#«3F 


t 


ADMON VEEGT BuRO LEES 




2C8D 


Pig 


00 




> 727 




LDO 


#0 


:ZET ALLE VELDEN OP 0 




2C8F 


. 95 


16 




> 728 


0D2 


STO 


BORD, X 








2C91 


. Cfl 






>729 




DEX 




1,/ ■ 




2C92 


: 10 


FB 




> 730 




BPL 


0D2 








2Cg4 


■ 60 






>731 




RTS 










2C95 


■ 09 


00 




)732 


PCMQN 


LDO 


#0 • 




KILL DISPLAY 


LABEL-PCl 


2C97 


■ 8D 


82 


10 


)733 




STO 


PBD 








2C9ft 


: A2 


02 




>734 




LDX 


#2 




STUUR VIER DISPLAYS 




2C9C 
2C9E 


i B6 


F6 




>735 




STX 


$F6 








! 02 


77 




> 736 




LDX 


#S77 




SET NMI-VtCTOR 




2CflO 


• 8E 


70 


10 


>737 




STX 


NMIVECTLOB 








2Cfl3 


02 


2G 




>736 




LDX 


#«2C 








2Cfi5 


8E 


7B 


10 


>739 




STX 


NMIVECTHOB 






2Cft8 


02 


24 




> 740 




lDX 


#$24 


J 


SET IRQ-VECTOR 




2Cflft 


■ 8£ 


7E 


10 


> 741 




STX 


I RQVECTLOB 








2CflD 


: 02 


2B 




> 742 




LDX 


#$2B 








2CflF 


: 8E 


7F 


10 


> 743 




STX 


I RQVtCTHOB 








2CB2 


02 


55 




> 744 




LDX 


#$55 




RESET ZERO-PAGE 


LABEL=PC2 


2CB4 


95 


00 




>745 


RESZP 


STO 


Z£TI, X 








2CB6 


CO 






> 746 




DEX 








2CB7 


10 


FB 




> 747 




BPL 


RtSZP 








2CB9 


86 


FO 




> 748 




STX 


DISP2 




DISPLAY = FFFF 




2CBB 


86 


FB 




>749 




STX 


DISP3 - 








2CBD 


02 


00 




>750 




LDX 


#0 




iNlTIEEfi ZEROPAGE 




2CBF 


BD 
95 


FO 


2C 


>751 


INITZP 


LDO 


PCLIJST, X 








2CC2 


15 




> 752 




STO 


CKOZ, X 






2CC4 


Ea 






>753 




INX 








2CC5 


EO 


CB 




>754 




CPX 


#$CB 








2CC7 


DO 


F6 




>755 




BNE 


INITZP 








2CC9 


20 


98 


2B 


>756 


KEY? 


JSR 


TDDSl 




WACHT OP EEN TOETS 


LABEL=PC4 


2CCC 


05 


El 




>757 




LDO 


KhYBUF 








2CCE 


FO 


OE 




> 758 




BEQ 


ZWRT 


1 


TOETS 0 = ZwART 




2CD0 


eg 


03 




>759 




CMP 


#3 




TOETS 1 = IgJT 




2CD2 


DO 


F5 




>760 




BNE 


KEY? 




LOOP INDIEN NIET 0 OF 3 




2CD4 


00 


00 




>761 




LDY 


#0 


■ 

1 


JUNIOR SPEELT WIT 




2CD6 


84 


00 




>762 




STY 


KAZ 


m 

» 


ZET POSVAL OP WIT 





28 



EIE 5i n 5 



L'CDS 


EO 






>763 




MOP 




HIER KAN DE KLEURINFORMflTIE 


::CD9 


EA 






> 764 




NOP 




VOOR NET 0PENIN8€MPR0i«A«!«lfl 


- L-f Urn 
















GEZET WORDEN 


■■rnR 




2C 


20 






JMP 


B.^EflK 


JUMP INPUT VOOR EERSTE ZET 




Q9 


•♦V 




■> 7P.7 
/fat 




U-L/M 


#*40 


JUNIOR SPEELT ZWflRT LftBEL=PC5 




AS 


Oti 




WP A 
/ f DO 




QTQ 
D I H 


KM 


ZET POSVflL OP ZWPRT 




CM 










Nino 


HIER KflN DE KLEURINFQRMflTIE 




PQ 

CH 






^ 77 A 

/ f f U 








VOOR NET OPENINSEfttf^ROeROMm 


_L--C'+ 


CM 






\ 771 




wnD 




GEZET WORDEN 




PQ 
CM 






\ 77 "> 












PQ 






> 77"=^ 














00 




> 77 A 




L.L/M 


#0 1 BISPLOY « 0000 


-L/C -7 








. 

/ f f %J 




D 1 M 


DISP2 


•'PFR 




PR 
r o 




i 77P 




Q t rl 


DISP3 






AP 


Ff7 


JL.D 


. 

/lit 




»j ('IP' 


MM2 


1 JUMP MAINS«t3N EN WACHT OP EtRS TE ZET VAN 




PF 


p. A 


A3 












L'CF3 


85 


86 


82 














85 


83 


84 












iLF9 


80 


flO 


80 














AO 


AO 














-L^r r 








f I t 






FF84838586e28583848080808080a080 




AO 




00 












iD03 


00 


00 


00 












JD06 


00 


00 


00 












>Dog 


00 


00 


00 












^DOC 


00 


00 


00 












^Dor 


00 






>779 




HEX 


80000000000000000000000000000000 


I'D 10 


00 
00 


00 
00 


00 
00 












?D13 
;D16 


00 


00 


00 












?D19 


00 


00 


00 












■'PiC 


00 


00 


00 












'D i ~ 


00 






>780 




HEX 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOC'O 


^D20 


00 


CI 


CI 













CI 
C3 



CI 
CI 



CI 
Cl 



CA C3 C5 

cf> ca 05 

C3 

Ca 00 05 
OA 13 IC 
OE OA 01 
00 03 
03 08 



>7ei 



01 
05 
05 

OF A4 24 
00 15 IF 
B4 34 00 
06 16 22 
A2 ti s€ 
A& 

B6 ()<> 2t 
3E fi£ BE 
66 76 E6 
t-6 00 06 
16 S2 ft2 
0<") 

04 07 38 
3C 3F 40 
CO 60 10 
30 20 FF 
00 00 00 
00 

00 00 00 
00 00 00 
00 00 00 
00 00 00 

00 m m 

00 

00 00 00 
00 00 00 
00 00 00 
00 00 00 



>782 



>783 



> 784 



>785 



>7a6 



Hgl ,«C 1 C 1 C 1 C 1 C 1 C I C 1 C I C4C5C5C6C2C5C 3 



Mix C4000SOA 1 3 1 COeOAO 3 0 1 000305030805 



HE X 0'='«4240U 1 5 1 FB4340006 1 622A22&36A6 



HEX B6002E3EOEBE6676E6F600061622A200 



WEX O4O7383C3F4OC0flOlQ3O2OFFOOOOO»O 



HEX OOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOO 



29 



2 DSC - 


DO 


00 


00 


2D8P : 


00 






2D90 : 


(■)(■') 


0( ) 


Ot") 


2D93 : 


(')(") 




00 


2D96 -• 


00 


00 


00 


2D99: 
2n9C 5 


00 
00 


60 
00 


00 
27 




wo 






2DaO : 


66 


1 7 


00 


2Dft3 : 


Ofj 


05 




2Dflfa: 




1 (■) 


I'^i 


?Dh5 : 


1 2 


2D 


07 


2Dfti; : 




P? 


.^s 


2DPf-: 


F9 






2'-Ht'': 


0 1 


09 


08 


2 DBS : 


91 


90 


69 


21)06: 


99 


09 


10 


2i)B9 : 


- -1 


Ol 


00 


2:)PC : 
2DEF : 


00 


00 


00 



> 787 



>76S 



769 



> 790 



HEX oooooooooooooooooooooooopooooooo 



HEX 000O000C^0O00OO0O00O8000000O27&b 



HEX 66 J 70000050500 1 0 1 9 122D07- r -7 - 9 



f-ii>! OlC-906 ■'l9u8999*J9:0l 101.0000000000 



-■■■EncJ asseiYibly-- 
367& bytes 



I'pftTCH IN THE 0CTCPUS/EC65 STflNDflRD MONITOR I 

+a=aaaiasas=atassas=aaasa2==a=======a===+ 



Author: Marc lachaert, Belgium 



If 



ou want to connect a Centronics interfaced printer to 
the Octopus, you Nill discover that when your printer is 
'off line' or out of paper', the computer will still con- 
tinue to send characters, so you will loose a whole part 
of your text. To reaediate at this uncomfortable situation 
you will have to re-programm the 2732-Eprom at the 'Cen- 
tronics' routine. 



Changes 

«f7B5, $F7SC. $F7C9 and *F7D0 



are (hade in the branc-i- instruct ions at addresses 
according the below listing 



F7B0 aD 10 El 


CENTRC 


LDfl 


VBPBD 




F7B3 29 03 




flNDIK 


$08 


IS THE PRINTER SELECTED' 


F7B5 FO F9 




BEQ 


CENTRO WAIT FOR 'ONLINE' 


F7B7 flD 10 El 




LDfl 


VBPBD 




F7Bfl 29 10 




flNDIM 


»10 


DO UE HAVE STILL PAPER? 


F7BC DO F2 




BNE 


CENTRO WAIT FOR PflPER 


F7BE flD 63 23 


CENTRA LDfl 


AHOLD 




F7C1 BD 00 EI 




STA 


VflPBD 


ALL O.K., LET'S PRINT.. 


F7C4 flD 10 El 


WAIT 


LDA 


VBPBD 




F7C7 29 08 




ANDIM 


$06 


STILL SELECTED' 


F7C9 FO F9 




BEQ 


HflIT 


WAIT FOR 'ONLINE' 


F7CB flD 10 El 




LDfl 


VBPBD 




F7CE 29 10 




flNDIM 


$10 


STILL PAPER? 


F7D0 DO F2 




BNE 


WAIT 


WAIT FOR PAPER 


F7D2 flD OD El 




LDfl 


VAIFR 


WAIT FOR ACKNOWLEDGE 


F7D5 29 10 




flNDIM 


$10 


SflMPLE PRINTER fl*JSWE=i 


F7D7 FO EB 




BEQ 


WAIT 


m ANSJER. UAIT UNTIL 


F7D9 flD OD El 




LDA 


VAIFR 


RESET nm 


F7DC 09 18 




ORAIM 


$!8 




F7DE 8D OD El 




STA VfllFS 




F7E1 60 




RTS 







I mom m DISK 5a (ORiem OSI V3.3) I 



Author: Marc Lachaert, Belgium 

On the disk I got from the club, I di^^veirid ft s«tfil' 
amount of errors-' 

fl. In Basic, the 'PRINT #(device)' does not worK properly, 
because on track zero, at $2SBF, an <Sf HMtt written in 
stead of *fl9. Please change ' 

B. The Init Call and Save functions do not work properly, 
because of the precense of WO or *79 at the following lo- 
cations or, traci^ zsra'. 

$26Cfl — ) CHAMGE "'C $40 ' ^ ■ 

$2769 — ) CHANGE TC $39 ' .- > ■ 

$2779 — > CHANGE TO $39 ' 

C. The 'Read/Write' utility on tracli 6, MCtor 4 did not 
have been transformed to the Octopus leei^M'for the disk; 
controller ' . - ,- 

Change in this programn all references tO^ iil!H(f,4ll«^cffl)f> 
troller... in $e6xX I 
This must be done at locations 
$339 and $365. 



1^, t32C. 1333, m. 



D. To make to work properly the breakpoint iftti{i| in the 

OSI extended monitor, change on track t t4i» MliHi>f Iff' 
cations: 

$l73fl — > 5 t NOP 

$173F — > LDfl $18D5 ■ 

$1742 — > STfl $E7CB 

$1745 — ) LDfl $18D6 > •. ■ . , 

$1748 — ) STA $E7CC 

(This patch sets the IRQ vector on $1625, where all regis-* 
ters are saved, and EM does his 'breakpoifflli Miling'l. 

fit the same time, chanae $l8Dfl from $!0 to $16, to brir^ 
the number of disassembled instructions pro screen to %. 



30 



ProiltRen wet de Octopus 45 wet R8 232 Pfiftttf 
Oorzaak: 

Het signaal DTR is verbonden net DSR en DCD en junper lS-16 van PL-3 is 
aangebracht. 

BiJ een hardware reset worden de interne re9isters van de ACIA 659t gereset. 

In het CoHHand Register <Hex Et32) itaat dan de W9arde Hex ii. 

De Monitor van de Octopus 65 initialiseert dt ACIA. In het Connatit flt«ifstef 

kont een waarde die wordt bepaald door de instelling van PL-3. 

Als bit i van het CoNHand Register van "t" naar "1" gaat , dan gaat DTR van 

"g" naar "1". Als bit 9 van het CoHnand Register een *1" is , dan geeft de ACIA 

een IRQ uanneer DSR of DCD van status verandert. 

SIR is verbonden net DSR en DCD , dus de ACIA geeft een IRQ. 

Oevolgen: . 

Be Assenbler start op adres Hex d269 <= cold start assenbler). 

«ij vraagt "NEU?". Men kan dese vraag beantwoorden net "Y" of "N". Bij "Y" 

Mordt op het scherh "CLEAR" geprint. Daarna 2iet nen 30wel bij "Y" als bi j 

"N" een oneindige reeks f outneldingen op het schern. Dit koMt doordat op adres 

Hex §238 een Clear Interrupt Disable Bit instructie staat. Ha deze instructie 

reageert de nicro-processor op een IRQ. Deze liiQ wordt gegeven door de ACIA. 

De Micro-processor spring t na ar het adres aangegeven door de IRQ-vector. 

De Assenbler gebruikt 4e ilff*vetio* o» bij foutieve invoer d.n.v. een BRK 

instructie te springen nnsr een rouililf op adres Hex 0604. 

Deze routine zorgt voor een f outneWiDf op het schern en spnngt hierna naar 

adres Hex 0231 (= wart steft «it«iiblif}. 

He ACIA naakt de IRQ weer hoog wanneer het Status Register (Hex E131) wordt 
uitgelezen. Dit gebeurt echter niet door de Assenbler , zodat op het schern een 
oneindige reeks foutneldingtR verschijnt. 

Oplossingen; 

li Verbreett de vefbinding van BTR net DSR en DCD. 
2! Verwijdir junper 15-16 van Pi-3. 

3: Lees voor het Booten (.B) eerst het Status Register uit M.b.v. de Monitor. 

48 Toets voor het Booten eerst .S en .RF iia*: D^ rotftiiifi die .S uii»eeft least 
het Status Register uit. ^ . 4 , 

5: In ieder geval noet nen er voor zorgen dat de ACIA geen IRQ geeft. 
Bit 0 t/« 3 van het Connand Register (PL-3 9-10 11-12 13-H 15-16) 
controleren de interrupts. 
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Voorbeeld van de mstellln'a PL-3 , PL-4 en PL-8 voor een RS 232 Printer 

0efeytiii« i 30 char/sec - 311 Baud , 1 start bil , ? data bits , 1 pmihf b%% 
t stop bit 

0 « open 1 * jUHper X > naak niet uit 



PL-3 

1- 2 
3- 4 
5- 6 
7- 8 
9-1# 
11-12 
13-H 
15-16 



1 [-even parity 
1 

#-norflal Hode 

lllnterrupt t.g.v. leeg Transnit Data Register disabled 

f rili » "i" TransHitter en 

1 -IM i.f.v. vol Receive Data Register disabled 

X 



t- 2 
3- 4 
5- 6 
?- 8 
9-1« 
11-12 
13-14 
15-U 



e-1 stop bit 
9^7 data bitf ^ 

1-Baud rate generatof iftlti'« 
0 

1 [-300 Baud 
1 
0 



PL-8 



1-2 1 I- 
3- 4 #1 



Low speed noden 



25-P D-Connector voor de Octopus 65 



Transfiitted Data <TD) 


output 


2 


• 


— Trtniiiltifi lata 


Received Data (RO) 


input 


3 


1 




#tf«t#9i Te lewd iWfti 


Ottl|rtfl 


4 


n 




Clear To Send <CTS) 


input 


5 






Data Set Ready (DSR) 


input 


6 


1 




Signal Srouit (S@fif> 




f 


• — 


— •"'Slptl firoiMB 


Data Carrier Detect (DCD) 


i nput 


8 


• 




Data Terninal Ready <DTR) 


output 


20 


• 
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57 70 MLIST 
SCR # 57 



t 
S 
4 
S' 

i 



Okt 1984 



( This version conforms to the CMOS 6502 CPU manufactured ) 

( i3v ROCKWELL. You can however use this assembler for the } 

( iWiEtlEM S1¥ viy^sions of the 6SC02 as well as for th« ) 

I MM §9(3*2 if '"vxsm. mmid usina non existina instructions anij) 



9 i 
10 < 

It 

12 ( 
IS i 

15 



TIti* |l«Mmibl!R7 Is mn utxtatmf version of itm onoinsl S502 ) 
••fWiti'lcf mmvimi. %*tfm$H -^tm court esv the . .Ji- 



* FortI) inisf^Kit a potto * 
« PO tm* I 105 * 

* San C»rI{W. 14070 * 



SCR 
0 
1 
2 
3 
4 
5 
& 
7 
8 
9 
10 
11 
12 
13 
14 
IS 



# 58 

( 65C02 ASSEMBLER 
HEX 

VOCABULARY ASSEMBLER IMMEDIATE 



PART 1 ) 

ASSEMBLER DEFINITIONS 
REBISTER ASSIGNMENT CONFORMS TO fia-FORTH SOURCf UPTIft® J 



(LOOP) 
LIT 

LIT 22 
COLD 16 
EXECUTE 



1 + 
1 + 

+ 

+ 
NFA 



ce 
ce 
c@ 
ce 

6 - 



c@ 



CONSTANT XS^VE 
CONSTANT IP 
CONSTANT W 
CONSTANT UP 
1+ CONSTANT N 



( NUCLEUS LOCATIONS ALSO CONFORM TO fia-FORTH SOUJCE LISTIN8 ) 
(DO) OE + CONSTANT POP 



1 



SCR 
0 
1 

2 

4 
5 
& 
7 



# 53 

( 65C02 ASSEMBLER PART 2 ) 

' (DO) OC + CONSTANT POPTWO 

' LIT 13 + CONSTANT PUT 

' LIT 11 + CONSTANT PUSH 

' LIT 18 + CONSTANT NEXT 

' EXECUTE NFA 11 - CONSTANT 



8 ( immt TABLE FOR BENERATINB OPCODES ) 



S 
10 
11 
12 
13 
14 
15 



SCR 
0 
1 



0 VmimE INDEX -2 ALLOT 

0909 , 1505 , 0115 . 8011 

8009 , IDOD , 1219 , 8080 

0080 , 1404 , 8014. . 8080 

8080 . ICOC . 801C . 



# 60 

( 65C02 ASSEMBLER 




2 


2 


VAR 


I ABLE MODE 


3 










4 


: 


.A 


0 


MODE ! 


5 


m 
■ 


# 


1 


MODE ! 


6 


■ 
• 


MEM 




MODE ! 


7 


m 


. X 


■V 


MODE ! 


8 




, Y 


4 


MODE i 


9 


■ 
■ 


X) 


5 


MODE ! 


10 




)Y 


6 


MODE ! 


11 




Z) 


D 


MODE ! 


12 


■ 
■ 


)X 


E 


MODE ! 


13 


8 


) 


F 


MODE ! 


14 










IS 




-> 







PART 3 ) 

( DEFAULT ) 

( ACCU ADRESSING ) 

( IMMEDIATE ) 

( Z-PAGE AND ABSOLUTE ) 

( Z-PAGE AND ABSOLUTE X INDEXED > 

( Z-PAGE AND ABSOLUTE Y INDEXED ) 

( Z-PAGE X INDEXED INDIRECT ) 

( Z-PAGE INDIRECT Y INDEXED ) 

( Z-PAGE INDIRECT ) 

( ABSOLUTE INDEXP INOIilECT ) 

( ABSOLUTt iHflJ^KT J , 
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KEMNIEIR 



SCR « 61 

0 ( 65C02 fiSSEMBLER PART 4 ) 
1 

2 ( PSEUDO MACRO'S FOR STACK PCCES ) 



( ADRESS THE BOTTOM OF THE STACK ) 
( ADRESS SECOND ITEM ON THE STACK ) 
( ADRESS BOTTOM OF RETURN STACK ) 



4 : BOT .X 0 

5 : SEC ,X 2 

6 ! RP) ,X 101 
7 

B ( ERROR MESSAGE FOR ILLEGAL OPERAND OR ADRESSING MODE ) 

9 

10 : ASMERROR MEM CR LATEST ID. 3 ERROR : 
11 

12 --> 
13 

14 
15 



SCR 
0 
1 
2 
3 

a 

5 
& 

7 
B 
9 

10 

11 

12 
13 
14 
15 



» 62 

( 6^02 ASSEMBLER PART 5 ) 

( UPMOOE SETS MODE. CHECKS FOR ILLEGAL ADRESSING MODES ) 

I UPMODE IF MODE § 8 AND 0= IF 8 MODE +! ENDIF ENDIF 

1 MODE § OF AND -DUP 

IF 0 DO DUP + Um^,. ENDIF 
OVER 1+ & AND 0= : 

( DEFINE SINGLE BYTE INSTRUCTIONS ) 

: CPU <BUILDS C. DOES) C@ C. MEM : 



00 CPU BRK. 
B8 CPU CLV. 
— > 



18 CPU CLC. 
CA CPU DEX. 



D8 CPU CLD. 
88 CPU DEV. 



58 CPU CLI. 
E8 CPU INX. 



SCR 

0 
1 



4 
5 
& 
7 
8 
9 
10 
11 
12 
12 
14 
IS 



# 63 

( 65C02 ASSEMBLER 



PART 5 ) 



C8 


CPU 


I NY. 


EA 


CPU 


NOP. 


48 


CPU 


PHA. 


08 


CPU 


PHP. 


DA 


CPU 


PHX. 


5A 


CPU 


PHY. 


68 


CPU 


PLA. 


28 


CPU 


PLP. 


FA 


CPU 


PLX. 


7A 


CPU 


PLY. 


40 


CPU 


RTI. 


60 


CPU 


RTS. 


38 


CPU 


SEC. 


F8 


CPU 


SED. 


78 


CPU 


SEI. 


AA 


CPU 


TAX. 


A8 


CPU 


TAY. 


BA 


CPU 


TSX. 


8A 


CPU 


TXA. 


3A 


CPU 


TXS. 


m CPU 


TYA. 


3A 


CPU DE«t 


lA 


CPU 


INA. 









( DEf^^ mf X mm imtmmjimm > 



X M/CPU 



— > 



<BUILDS C. . DOES) DUP 1+ t 80 AND , V 
IF 10 MODE +1 ENDIF 

OVER FFOO AND UPMODE UPMODE IF ASMERROR ENDIF 
CS MODE Ce INDEX + C© + C. MODE C@ 7 mO 



SCR 

0 

1 

'? 

3 
4 
5 

I 
■» 
10 

ii 

12 
13 
14 
15 
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( S^02 ASSEMBLER 



PART 7 > 



IF MODE ce OF AND DUP 7 

IF C. ELSE . ENDIF 
ENDIF MEM : 

60 M/PPU ADC. 3C6E 20 M/CPU 

#0 M/mJ EDR. 3C6E AO M/CPU 

WBSE, m M/CPU SBC. 3C6C 80 M/CPU 

mm CI M/CPU DEC. OCOC El M/CPU 

cans M ODOD 61 M/CPU 

mm m M/ew cpx. o486 co m/cpu 

mME AO M/CPU LDY. 048C 80 M/CPU 

C4e0 40 M/CPU JMP. 0484 10 M/CPU 

— ) 



< SWAP 0 » OR 



AND. 3C6E CO M/CP'U CMP. 

LDA. 3C6E 00 M/CPU ORA. 

STA. ODOD 01 M/CPU ASL. 

INC. ODOD 41 M/CPU LSR. 

ROR. 0414 81 M/CPU STX. 

CPY, 1496 A2 M/CPU LDX. 

STY. 0480 14 M/CPU JSR. 

TRB. 0484 00 M/CPU TSB. 



4 



5 □ S 



KEISIMER 



r;- 



r 



SCR « 

0 ' ( A^pui mm i 

2 ( DEFINE STZ. flNC IIT. > 
3 

4 f imWU (BUILDS . . , DOES> MODE § DIP 0* SWAP 3 > OR 

5 IF flSMERROR ENDIF OVER FFOO AND 

6 IF MODE ft 1 = 0» 

7 IF 2 HODS +! ENDXF I»®IF 

8 «oi^ e ♦ ce Dup o» IP asmerror endif 
s c. mode e 4 < if c. else , smif mt : 

10 

11 3C2C 3424 S900 m/miMJ. 

12 m3C746hQommmwz, >■ - 

13 - ^ 

14 — > 

IS' 

iCR # &6 

0 ( 65C02 assembler PARTS ) ,i 

2 ( ROCKWELL 65C02 ONLY ! ) 
3 

4 00 CONSTANT MO 10 CONSTANT Ml 20 CONSTANT M2 . . 

5 30 CONSTANT M3 40 CONSTANT M4 50 CONSTANT M5 

6 60 CONSTANT M6 70 CONSTANT M7 ,„ ,; 

7 _ ' 

8 ( DEFINE RMB. AND SMB. ) 
9 

10 : BIT6EN Cft * OmR FFOO AND MODE S 2 « 0- OR 

11 IF mmMmn wmiw t 

13 9 m^mu mtim c, mmt mwm c c. : 

15 07 M3/CI*U RMB. 87 M3/CPU SMB. — > 

'''^^^5002 ASS®I8U|1 PART 10 ) 

1 ( DEFINE C0l«a»ET!0NIIL8 FOf ^ fm Sm INSTRUCTIONS ) 

4 ! M4/OJU djILDS C. D0ES> IITSIN C. : 
5 

6 OF M4/CPU SET 8F M4/CPU ClR 
7 

8 ( ASSEMBLER CONDITIONALS, ALL VERSIONS ) 
9 

10 : BEGIN. HERE 1 : IMMEDIATE - . •''■-:t 

11 : UNTIL, ?EXEC >R 1 ?PAIRS RJ C. mm 1> - C. : 

12 IMMEDIATE 

13 

14 : IF, C, HERE 0 C. 2 : IMMEDIATE 

15 — > ■ . ; , , 

SCR # 6fi 

0 ( 65C02 ASSEMBLER PART 11 ) 
1 

2 : ENDIF. ?EXEC 2 7PAIRS HERE OVER CS i 

3 IF mPiP ? tLSE OVER 1+ - SWAP C! EnJDHF 1 ' 

4 IMMEDIATE 

1 s ELSE. 2 ?PAIRS HERE 1+ 1 JMP. SWAP HERE OVER 
I 1+ - SWAP C! 2 : IMMEDIATE 

7 , • : 
B 

9 : NOT m * i i DON'T ySE AFTER SET OR ClR > 
10 

11 ( FLAB TESTIN8 tm\m MACRO'S > 

12 I 

13 90 CONSTANT CS I 

14 DO CONSTANT 0' 

15 ~> 
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SCR 
0 
1 
2 
3 
4 
5 
6 
7 
B 
9 
10 
11 
12 
13 
14 
15 



« 69 

( 65C02 ASSEMBLER PART 12 ) 

10 CONSTANT 0< ( TEST FOR LESS THEN ZERO ) 

90 CONSTANT )» ( TEST FOR GREftTER OR EQUAL TO ZERO ) 

( VALID ONLY AFTER SBC. OR CMP. ) 



: END-CODE CURRENT & CONTEXT 
IMMEDIATE ^ 

FORTH s^mrri^ decimal 



?EXEC ?CSP S'lUDSE 



CODE ?EXEC CREATE [COMPILE] ASSEMBLER ^EmiR' 
MEM !CSP : IMMEDIATE 



ASSEMBLER CFA 



:CODE 8 ( ALTER :CODE ) 



SCR 
0 
1 
2 
3 
4 
5 
& 
7 
B 
9 
10 
11 
12 
13 
14 
15 

OK 



# 70 

( &SG^ mmmjm 



PART 13 ) 



( LOCK ASSEMBLE! I^IO SYSTEM ) 



LATEST 12 
HERE 2B 
HERE 30 
ASSEMBLER 



HERE 
:S 



FENCE 



+ORIGIN 
+ORIGIN 
+0RI6IN 
6 + 32 



( DP 
+ORIGIN 



( VOC-LINK ) 



Tips ami Tridess / HX0i 



A Cursor for GET 

10 A=PEEK ( 2DD ) +PEEK ( 2D 1)«256+PEEK( 202) 

20 P0KE65292, A/256 

30 P0KE65293,A-256«INT( A/256) 

UO GETAg 

50 IFA2=""THEN'*0 

60 PRINTA2; 

70 P0KE65292,255 

aO P0KE65293,255 

10 mwm 



deafly^ line 50' ^ J|e.ClMip^.'''^#i:~'i|Mt't^' 
sore particular characlisr is typed in, jpc^ 

fteti Behringet, fUnchen 



:REM LOCATION OF CURSOR ' 
:REM CURSOR ON .(HIGH) IN. TED 
: REM "CURSOR ON (LOW) IN TEO 
:REH CHARACTER ' 
:REM-UAIT FDR INPUT 
SREM ECHO ON SCREEN^ 
.:REH CURSOR OFF (HIGH) IN TED 
tfm CURSOR OFF (LOU) IN TED 
:REW BAi>i- TO MAIN PROGRAM " 

ceintirHjAa «jfi,i if 
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— Ei 5 D KENNER 



set » 23 ^^:! ' 

f i ««»*#•##*# SCREEN EDITOR ■'■ :\ : > 'if. k. -i •• j 

1 t SCREEN EDITOR FOR FIB-79 FORTH A/1. 1 ' >i~e i ' » 

2 ( RUNNING ON EVERY JUNIOR WITH ELEKTERMINAL AS© 'SmiHWil' T 

3 ( 79 FORTH flS DISTRIBUTED BY THE KIM-CLUB. "'t j 
A t '•■ ' ■■ ■••'^ ■")■■' 

5 r THE PROBRflM IS DEVELOPED ON fl SENIOR BYS ■ ) 
i ( 6. VftN OPBROa< > 
? ( WOSLANDEN W ) 
« { fSOl LB ZUIDHORN ) 
f ( TEL. 05940-5S27 ) 

10 ( ) 

11 CR CR ." BEVOP SCREEN EDITOR.*" -v.. ; "V/ . 

12 CR ."VERSION 1.0 29/Oa/M'* BR CR • 

13 VOCflBULflRY SCR EDITOR DEFINITIOhS % 

14 HEX 

15 --> 

i ■ ' r 

SCR i 24 

0 { ##*»*»***« SCREEN EDITOR »**#*»#*«• • ; i 

1 t . r 

t C USED CONSTANTS AND VARIABLES: ' • • • . • ) 

3 ( B/SCR BLOCKS PAR SCREEN = 8 08 HEX : r i . Hi . > 

4 { B/BIF BYTES PAR BUFFER = 128 80 HEX ' . 

:S t Cjfi. .jj^y. :iW l.-pic ^&4> . .^0 HEX- - ) 

6 t WHM sci^M syiiBi :- ■ ■ ' ,v 

7 ( ■ ■. jvi < -iji, 

8 VARIABLE ACT LINE ( ACTUAL LINE hu"- . !'.: • ^ 1, 

9 V«8IflBLE CHAR POS « 4JQSISra3fet OR^ISO^Bia^ ' .- ij. 

10 -^J " " ■ ^ ? ' "iV^ - 11'. • ! ''J . ■■ ■ 

11 . .. ■. > . ' I. ^ . 

12 r-'r-V: - 
13 

14 
15 

SCR » 25 "J- , 

0 ( #*♦♦*#**«# SCREEN EDITOR **»*«###«* ■ Ji 
J t STOPBITS 1+ 1A59 C! ;| j : • ( SEE LISTING OF P,**:: BOOK 4 i: 

2 t txm i OlAR TERMINAL SCREEN \ t 

3 m iiBPSiTS m mil 02 stopbits < leo stopbits = 133 ms. -j. 

* <i mm LINE ! 0 CHAR POS ! : 

:g {' ' " > 

1 I HOME ( CURSOR HOME ON TERMINAL ) 
t AO STOPBITS IC EMIT 02 STOPBITS ( 160 STOPBITS = 133 MS. ) 
B 0 fm LINE ! 0 CHAR POS ! : 

9 { ~ ) 

10 1 C POS ( MOVE CURSOR TO DESIRED -^y«^T \ 

it rXHORIZONTAL POS. > (LINE NR. > ■- • i >, 

12 HOME CR ACT LINE ! DUP CHAR POS ! 0> , 

m IF CHAR POS § 0 DO 09 EMIT LOOP ENDlF 

14 10 ACT CINE § - -1 DO OB EMIT LOOP : 

m ^ ■ 



i 26 

i t #«»♦««#*** SClfEN EDITOR ********** > 

1 r SCR SAVE ( SAVE CURRENT SCREEN 4 
t SCR e B/SCR * B/SCR 0 

I DO DUP I + BLOCK UPDATE DROP LOOP DROP SAVE -BUFFERS : o " 

4 s ii8 tCLiiK ( CLEAR CURRENT SCREEN TO SPACES ' } 

i DO DUP 1 * wuom WWF mMm lOp drop : 

7 ( ) 

8 I ACT ADDRESS ( CALCULATE ACTUAL ADDRESS OF THE CURSOR ) 
f %¥~UNE e 2 /MOD SC8 # B/^t tu<^ BtOCK SMAP .i 

10 i/L ♦ + CHAR POS § + I • .:c 

11 ( " .-, - .. ■■ - y - ■ ) 

12 --> 
13 

14 
IS 




SCR # 27 

0 ( ♦*»♦**♦*#» SCREEN EDITOR **♦##*♦*** 

1 S SCR LIST (LIST ftCTUftL SCREEN 

2 CLS'' SCR © 0 OE C POS ( STftRT ftT LlhE lA m QMillCtMii ■ • 1 

3 SCR & B/SCR * B/SCR 1- ( PROBLEMS ftT-^fftCiim CS? | 

4 + BLOCK C/L 2 t TYPE ( OF H«E.15 . J 

5 HOME •■- -5f L 
I SCR e B/SCR * 

7 B/SCR 1- 0 DO DUP I BLIICK^/«JF TVPE tMmmm - ; ; 

9 i Lim mm ( calculate the address op Hii aii'.ir } 

10 ( THE ACTUAL LINE t 

11 ACT ADDRESS C/L + CHAR POS S - 1- : 

12 : PRIST FIRST '( PRINT FIRST LINE AGAIN ) 

13 CHAR POS e ACT LINE e ( SAVE CURSOR POSITIOM OM tME STACK ) 

14 HOME ACT ^ADDRESS C/L TYPE . . : 

15 C.POS ; ( PUT CU^^ m WE mJS POSITION $ 
iQI| i 2a 

# 1 »***«*»#«« SCREEN EDITOR ) 

1 i SI ( DELETE ACTUAL LINE AND SHIFT THE ) 

2 ACT LINE e DUP OF < t OHHtR 4sH((it «fN. > 

3 IF JUP i-t- 10 SWAP 

4 ie I iCT LINE ! 0 CHAR POS ! ACT ADDRESS 

5 i 1- ACT LINE ! ACT "ADDRESS C/L CMOVE . 

6 LOOP ENDIF 0 CHAR POS ! OF ACT LINE ! ' 

7 ACT ADDRESS C/L BLANKS SCR LIST 0 SWAP C POS : 

S t SO " ( SPREAD AT THE CURRENT LlM I 

9 ACT LINE e ( AND INSERT A BLANK LINE ) 

10 OF fiCT.LINE ! 0 CHAR POS ! 0 0= ( LAST LIIK :©«IPW? . 

11 LINE END 1+ ACT ADDRESS DO I C@ 20 = AND LOOP ! 

12 IF DOP OF DO I DUP 1- ACT LINE ! ACT ADDRESS SWAP 

13 ACT LINE ! ACT ADDRESS C/L CMOVE -X +LOOP DUP ACT LINE 3 

14 ACT'ADDRESS C/C BLANKS SCR LIST 0 mm C POS 

15 ELSE 6 SWAP C POS 07 EMIT ENDIF ; — > < IF NOT THEN BELL ) 

SCR « 29 

# i ********** SCREEN EDITOR »**««***«« } 

s I DEL ( msTE mmm. mmmm ) 

t CHAR POS e C/L 1- < « - r v r 

3 IF LINE END ACT ADDRESS DO I DUP 1+ CM «JP ERIf WIP Cf iSm 

i ENDIF LfNE END I BLANKS SPACE 3 ' 

I ACT LINE e'OF - IF PRINT FIRST mSW 
i Oi»i.P0S i ACT_HNE t C POS ; 

7 I SUi i INSERT CHARACTER AT CURSOR POSITION ) 

a LINE END Ce 20 = CHAR POS § C/L 1- < AND 

9 IF ACT ADDRESS LINE END DO I DUP 1- Cft SWAP C! -1 +LOQP 

10 ACT fiDDRESS 1 BLANKS 

II LINE END 1+ ACT ADDRESS DO I C& EMIT LOOP 

12 ELSE 07 EMIT ENDlF 

13 ACT LINE e OF » IF PRINT FIRST ENDIF - ' -'^ 

14 CHAR POS § ACT LINE « C PQ$ - 

15 ~> " " ■ ''-'^ ' ' : ' 

SCR # 30 

0 ( «*##*#*«** SCREEN EDITOR ***«#«***» } 

1 s KEY INT ( KEY INTERPRETER ) 

2 SCR"! SCR LIST 

3 @EBIN KEY 'DUP IF > OVER 7F < AND 

4 IF ( PRINTABLE CHARACTER » 

5 DUP EMIT DUP ACT ADDRESS C! CHAR POS 6 1+ DUP 3F > 

6 IF DROP 07 EMIT 08 EMIT ACT LINE'S OF = IF PRINT FIRST ENDIF 

7 ELSE CHAR.POS ! 3F • ACT LINE t OF - AND 
i ENDIF 

SmM PJP < NON PRINTABLE CHARACTER ) 
IP^M^ft fr DROP CHAR POS e 1- DUP 0< ( CURSOR LEFT 1 

11 IF DROP 07 EMIT ELSE CHAR POS f DUP EMIT ENDIF ELSE 

it mm 09 = IF DROP char POS § 1+ DUP 3F > ( CURSOR RIBHT ) 

13 IF DROP 07 EMIT ELSE CHAR POS ! DUP EIIIT EWIF ELgE 

14 iUP m m IF DROP ACT LINE 6 1> flUP OF > ( Ct^R mm ) 

15 IF DROP 07 EMIT ELSE ACT LINE ! DUP EMIT ENDIF ELSE — > 



5 O e 



KEIMMER 



0 

1 

2 
3 
4 
S 
& 
7 

i 

Id 
11 

i| 

13 
14 
15 




# 31 M..- -•- 1 

( *«««»*«««« SCRBIN EDITOR **#******» 
DUP OB » IF mm iCT LINE e 1- DUP 

IF DROP 07 EMIT ELSE ACT Lim i^s 
mp OD « IF DROP OCT ADDRESS 

E/L m^Rjm e - BLANKS CHAR POS B 

aiP €WIT*0 CHAR POS ! 

OA EMIT ACT LIN^ © 1+ DUP OF > 

IF DROP PRIRT FIRST HOME ELSE ACT LINE 
DUP OC = IF DROP'CLS' SCR CLEAR ELSE" 
DUP IC = IF DROP HOME ELSE.-r.^U:- - . 
DUP ID = IF DROP DUP EMIT 0 CMftR POS ♦ 

OA EMIT ACT LINE & 1+ DUP OF > 

IF DfiCHS PRU^T FIRST HOME ELSE «ET LINE 



CURSOR UP ) 
EiMDIF ELSE 
CARRIAGE RETURN) 
SPACE ESffilF ■ . 



ENDIF E^SE 
CLEAR SCREEN ) 
CURSOR HUME ) 
CflRRIflGE RETURN) 
NO ERASURE ) 
ENDIF 



SCR B 32 

0 t «#♦«#*«#«# SCREEN EDITOR **#*##*#** 
DUP 7F = IF DROP m. ELSE 
DUP lA = IF DROP iUi ELSE 
mm OF * IF DROP SI ELSE 
OE » IF DROP SO ELSE 



1 
2 
3 
4 
5 
6 
7 
B 
9 
1© 
11 
12 
13 
14 



■ ' ) 
( DEL = DELETE CHflRflCTER ) 
( SUB = INSERT CiHPRACTER ) 



( SI = DELETE LI^i£ 
( SO = INSERT LINE 



DROP 07 EMIT 
emiF ENDIF ENDIF ENDIF 

BmtP ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF E.MDI; 
03 = UNTIL CLS* 

BEGIN CR ." SAVE SCR: " SCR § . .» ? (N/Y) " KEY DUP 

DUP 4E «=i »;§VER 59 «: < »Y" ) OR 
UNTIL 59 » IF 161 mm ELSE ei«0TY-BUFFERS ENDIF : 



EMI' 



15 FORTH DEFINITIONS — > 



SCR 
0 
1 
2 
3 
4 
5 
& 
7 

• I 
9 
10 

11 

12 
13 

IS 



# '33 

( #♦»#*»***♦ SCREEN EDITOR ****«♦«**♦ 

: SCR EDIT ( SCR# — ) ( EDIT ENTRY-POINT 

EMPTY-BUFFERS SCR EDITOR 

BEGIN KEY INT 

BEGIN Ci . " NEXT SCREEN? (N/Y) " 

KEY mm mmr mm m m amn 59 » or 

UNTIL 

©UP S9 « IF SCR e 1+ SWAP ENDIF 
4f « UNTIL FORTH • 
DECIMAL . V ' 



( "N" on "Y" 
< INCREASE SCR# 



( 



;S 



SCREEN EDITOR LOADED". CR Cft 

USER INTERFACES SCM ffiO"^ ©1 CR 



) 



SCR # 

0 ( 

1 ( 
2 
3 
4 
5 
S 
7 



9 

10 ( 

11 ( 

12 ( 

13 ( 

14 ( 

15 ( 



34 

##♦♦*«**** SCREEN EDITOR : INSTRUCTIONS **♦«*»*»*# 
l: START THE EDITOR BY SCR-NUMBER SCR EDIT. 
2: CURSOR CONTROL: 

BS CCNTRL-H] CURSOR LEFT 
HT CCNTRL-n CURSOR RIGHT 
LF CCNTRL-J] CURSOR DOWN 
VT CCNTRL-K3 CURSOR UP 
FS CCNTRL-\3 CURSOR HOM& .. 



8 ( 3: CHARACTER EDITING! 



DEL 

SUB CCNTRL-Z3 
LINE EDITING! 

50 CCNTRL-N3 

51 CCNTRL-03- 

FF ca«inii.*L3 



D%Em CNftiSCIWR^ 

INSERT BLAI\B< Lim 
.Mums LINE 
nMm SCREEN TO BLANKS 



as 




Kl 



SCR « 35 



0 
1 



( 

( 

2 ( 

3 ( 

4 ( 

5 ( 

6 ( 

7 ( 

8 ( 

9 ( 

10 ( 

11 ( 

12 ( 

13 ( 

14 ( 

15 : 

OK 



ti****mm iCREEN EDItfltf INSTRUCTIONS #«♦**»**** 

5! CflTOiB^ RETURN* OITTUDM OMH COQQP 

rot CflRRIftBE RETURN PlND ERASE 

GS: CCNTRL-3 3 CARRIE RBtlWEillWftJf*«ftSURE 

6: EXIT EDIT MODS! ■ ^ - ^ 

ETX: CCNTRL-C3 

THERE EXISTS ALSO A VE^£» #0i! "P^'-itfeftftR COMPUTER WITH 
PDS-65 FORTH. ^ . ' ' ' ,' 

CONTACT THE AUTHOR OF THIS PRQ§RftM. 

THTq PROGRAM CAN ONLY BE LOADED IF VOCABULARY AND +'^aOP fiSE 
wSrKING PROPERLY. SEE THE PATCHES THAT ARE PUBLISHED BY THE 
AUTHOR OF THIS PROGRAM. 

S 



flVilLASLE Wm 0CTJ3PU8/EC65 DISKETTE » 

piiKiTfi II .- 

f® fehow you OW tlit diskette, we give here the 

aalBtel on •BMMMTi after booting diskette 11 and the output 
e*t of the ii rectory fellewed by a list of new 

fiMm, eiwftpared with the System Loys diskette 1. 

— July 9, 1985 ~ 



irriL 5 DRIVE fl 

'2> Create a rmm-'-($Mm-'- 
3> Change a new fil* 
4> Delete file from disttettfi 
5> Create blank data diskette 
6> Create data diskette with files « 
7> Create buffer space for «*ata files s 
8> Single or du«I Mmh drive eopier s 
9> Enter 0S-6SS sysl** ' 

Type the mal^r of your selection and depress RETURN ? 



) 
) 
) 

% 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 



10> Load assembler 
11> Load wordprocessor 
12> Basicoae processor (BSCODl) 



— Directory of 


drive A — 




























V3,3/t 


0-0 


V3.3/2 


1- 


-1 


DIRECT 


12- 


-12 


BAS/1 


,2-2 


BAS/2 




■3 


BftS/3 


4- 


-4 


BflS/4 




B/5V/3 


5- 


-5 


flSM/1 


7- 


-7 


ASM/2 


8-8 


flSM/3 
y3. 3/4 


9- 


-9 


T0V3. 1 


10- 


-10 
-17 


T1V3. 1 


11-11 


13- 


-13 


BEXEC* 


14- 


COPIER 


18-19 


CHANGE 


20- 


-21 


GftRBAG 


22- 


-24 


DIR 


25-25 


SCRTCH 


26- 


-26 


MERGE 


27- 


-27 


WP2. 0 


28-31 


BSCQBJ 


3i:'- 




NEWCOP 


T*T 


-34 


ATICNB 


35-35 


BSCODl 


37- 


-37 


BSC0D4 


38- 


-38 


COP/TO 




eOM/TO 


39- 


-39 






















35 entries free 


out of 64 













Depress RETURN to continue ? 



NEW FILES : 



SCRTCH 
NEWCOP 
BSCOBJ 



26-26 
33-34 



BSCODl 
BSC0D4 
WP2. 0 



37- 37 

38- 38 
28-31 



If you ordered the 0S-65D patch-diskettes earlier: 

Send e«pty diskette with label and R/W protect stieifer to 

the editor's office. 

The diskette format is 40 tracks. 

Se^ cheque of Hfl. 22,00 to W.L. v.Pelt (eurtcheque 12,50) 
Price only for European <C. E. P. i S»it»#f iWB 
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Ei !5 lU KEIMMER 



BASICODE-: 



WAT IS BASICODE-2 



BAsIluDE is een gestariijanseerde audiocode manss BASIC-prograinnia' s op 
cassette worden bewaard. Deze code is ontsnikkeld door HOBBYSCOOP van de Ni'iS 
Itet uit»iifst1«n van miQ-^snrmm' t iKsen verschiilende contputers wordt 
hmm setelilb aansezien ieimm <fe teUie wluidscode sebruikt. 



SPECIFICATIES 

Het BASIC-prosMiia woftft in ASCn-fofiS'at op h band geset. Ket most significant 
bit (bit 8) = 1. De baudrate bedraast U^L Een byte wdt voorafsegaan door 
1 startbit id) en gevoiad door 2 stopbits (1). 

I*n Iwifche 1 ongezet 'nf icmimMe^^ -^^m. Een losische » wof-di- 

ontgezet in een per- 1 ode van 12U Hz. 

Het totale ppogramma wordt als volgt weggeschreven." 

- 5 seconden 2411 Hzi ■ '■■ ■ 

- STX ($ 82h 

- ETX ($ 83) t ■■ ''■ ■ '■' 

- checksuiDf ' ■ ' ■ j't. ■ ■ ■ • ■ 

- 5 seconden 24«t fe. 

De checKsuiri is het resultaat van de exclusive-or van alie voorgaande bytes. Het 
8-ste bit kan wel 8 ziJn. 



2.1 PROTiXOL 

Oiiidat de gebruikte BASIC' s met geliJk zijn schruft het BASICCDE-2 protocoi 
voor hoe het ProsraiMa awffejwd noet ziJn en welke stateaents ^mum m'^ln 
worden. 



2.1.1 ALGEfENE AFSPRAICN 

De afsprafeen «iii-aa« tecSBE^foSfiiiiiil*? iSoehn'votdoe n zi-ini 

- All een die BASCIC-stateraents gebruiken die alie coitiputers kennen 
(zie 2.1.2). 

- De regeisnijiDfiiers tot 160^ zi.in gereserveerd voor specials functles 
die niet voor eike computer geiiJk hoeft te zi-Jn (zie 2.1.4), 

- Er wordt uitgegaan van een beeldscfteris van 24 rggeis met elk 4« tekens. 

- Een prograisiriaresel mag inciusief het PegelntiBiter en de spatin ^xiMai 
6« tekens iang zun. 

2.1.2 BASIC-STATEMENTS 

Bf volgende coMindo' s en opsratoren isogen gebruikt worden: 



ABS 


AND 


ASC 


ATN 


CHR$ COS 


DATA 


DIH 


END 


EXP 


FOR 


GOaiB 


I30T0 IF 


INPUT 


INT 


LEFT$ 


LEN 


LET 


LOG 


WD* NEXT 


NOT 


ON 


m 
m 


PRINT 


READ 


REH 


RESTORE RETURN 


RI6HT$ 


RUN 


SIN 


m 


STEP' 


STOP- TAB 


TAN 


THEN 


TO 


VAL 












+ 




» 


7 








<> 
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2.1.3 mm BEmmm m 91 statqcnts 

ABS(X) Gee ft df ibtiTiate iHtf^e van een variabele X. 

AW) Dit is de losische ANDt die alleen sebruikt tag worden voor 
losische variabelen. Gebruik haakJes or de be«erkin9SVo)9orde 

aan te seven. 

IF (A=3) AND (B=l) THEN .... 

t^iU) Geeft de ASCII-waarde van het eerste karakler van XI. 
A$="HALLO"!B=ASCIA$) => B=72 

ATN(X) Geeft de arctaftsens in radUlen van de vdriabele X. 

CHR$(X) Geeft het karakter waarvan de ASCII-waarde seliJk is aan de 

variabele X (32 <= X <= 127). De waarden kleiner dan 32 ziJn 
niet voor alle computers seliJk. Alleen de RgTURN-toets heeft 
altiJd de ASCII-waarde 13. 



COS(X) 
DATA 

mn 



END 

FOR TO 

STEP 

NEXT 



G0SU6 
GOTO 



IF 

THii 



Geeft de cosinus van de hoek (in radialen) X. 

Hierna volsen de variabelen die net het statement READ selezen 
fegpig wordeii. De variabelen worden sescheiden door een konta. 

DATA 111 t2li>3N* "HAULO*! *SAA6* > "GROETJESM t2i3 

HitfBie worden array' s sedinensioneerd. Een array noet vfiof 

sebruik sedimensioneerd worden. In BASICODE moeten alien array' s 
sedinensioneerd worden. Het aantal dinensie' s bedraast oiaximaal 

DIH A${2>>B$(tS)>Tlf(2t>5l) 

ffiervei wOfdt wmmu 9e$t«^. 

Herhalinssconstructie. De lus wordt nininiaal 1 maal doorlopen. 
STEP «i9 we99ektett weirdeA all dt $taP9rostte 1 is. Na NEXT 
ioet de variabele opseseven worden. 

FOR A=l» TO m STEP 5 

......... \ 

.....**,. ! Pro9raRRa dat heliaald doorlom leet worden. 
NEXT A 

Hieraee wordt de subroutine aa^tPWlFen waarvan het reselnuwer 
achtif I^W'slait.' 

Hieriee wordt sespronsen naar het reselnunner volsend op dit 

St4t«H»0t. 

VoorwaardeliJke sprona. Tussen IF en THEN staat een logische 
variabele of een losische verseliJkins. Is deze 'waar' dan 
wordt het 9edee1te achter T^ uitsevoerd; is deze 'niet waar' 
dan wordt het VD]9eftde stateient uitsevoerd. 

IF m mt ^^^mm>fm^ mm 



INPUT 



hi 



Hiernee wordt aan de sebruiker sevraasd oin invoer> we Ike wordt 

toegekend aan de Variabele of strins-variabele vohend op INPUT. 

Een insevoerde string mas seen komoia' s of dubbele punten 

bevatten. Er nag naar een variabele staan achter INPUT. 

PRINT'WAT IS UW NAAMM: INPUT N$ 

PRINT"GEEF DE X- EN Y-WAARDE";: INPUT X: INPUT Y 

INPUT"HOE VAAK'iA is VERBODEN !! 



i>e[5 5 □ S ^^^'^'-^^f^ 



INT(X) Geeft het srootste geheie aetai kleiner dan of seliiK aan 1. 

LBT* LEFT$(X$t;<) haait I karakters uit 1% te beginnen met het isesst 
Unker karakter. 

A$="RODE FIETSEN":B$=LEFT$(A*»4) ==> B*="RODE" 
IBKK*) Geeft de Itnste van string X. 

LET Hierinee kan sen waarde aan een vanabeie woroen toeseKeno. 
LET A=3. Ook nas A=3. 

LOGiX! Berekent de riatijijriijke losar-itine van X. 

MID$ MIDJiXiiX.V) haalt Y karakters uit X* te besinnen met het X-ste 
karakter. 

Al="HOBBYSGOOP BASIC0DE»!B$=HII»(A$»12»5) ==> BI=«PS 
NEXT Zie FOR 

NtfT Lofische ontkenning. Bit is alien toepasbaar w |-«l®e^.¥ariabtlefi, 
A=5:B=N0T(A=6l ==> B="waar" 

OP) Hiermee kan een sprons naar een sub'outine of een ppograiitia- 
60SUB regel geinaakt worden. Na OM volst een uitiirukkina of yaria&eie. 
GCtTG ON A-2 GOTO 5§^»i6««0t7e^* ' ' 

A moet 3» 4 of 5 zih f!. Als A=4 dan 'rferat gespronsM naar b¥A 

OR Logische OR. lie ook AND ■ ' i ■ _ 

PRINT Hiermee kan sen variabe'e of string qp het schera worden at?e- 

drukt. heeroere vanaoe'en in een ^'RlN'T-statement Btoeten ssscneiden 
Wrt^n met een puntkoMa. Ah aan net emd van ds cpdracht esrs 
Piintkoiiiaa staat wordt gees aytoffiatische reselovgrsang gegeven. 

READ Liist'tfe gegevens van iti Slii^-5tat?n.?rit. fis^rdere va-iace'en 
tforoen gescneiden set een Konaa. De READ-varseteien Meteft 
van het selfde type zijn ais de gegevens in he' DATA-statewit. 
■ BAIA h "HALLO". 2 
READ AtB$>C 

REH Hieraee kan het prosraiMia voorzien worden van s««ntaaf. F.-r 
tat se#fl dubbilf Punt In de koiientaar stMB. 

f€STG^ Wi'#ite wpit m\ f^n Siii*sl»^9»!* m^-'vm&i #it terste 
BATA-stafeftent ttlezen. 

RETWS Seeft- het einde van ew sobrwitine aan* 

RIGHT* RIGHT$fX$tX) geeft X karakters uit X$ eindisend bu het isesst 
reenter karakter. 

^^IliE FlETSiN"!Bl=«IijTliA4*7i =*> BI="FIETSEN" 

m start het prograjnAi Mil iriiWiR itettii titift,;^ m seen 
reselnuMier acbttf-^iir-ssiwwi' '.\ 

SiN{X) Berekent d* sinus v&n de hoek I in radialen) X. 

SGN(X) Geeft -1 ah X negatief is en « als X positief is. 

SQRiX) Berekent de wortel van t, 

STEP lie FOR. 
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TAB(X) Hiernee kan in een PRINT-statement de cursor naar rechts verschoven 
m*ten. X 9eefl ^ ffilfuw »s^i ian. 
miNT"A'5TAB(5)!"B"!TAB(15);*C" => A....B..^^,«.X (.rwsti*) 

TAN(X) Berekent de tanseits vatt de hsek (in radUlen) X. 

THEN Zie IF. 

TO Zie FOR. 

Wilt) Bepaal t de nuteriefEe van M. M$ U ^^im mi nuieriek 
is» kan de uitkomst per computer verschillend fljftf 
A*="1.4E6":A=VAL{A$) ==> A=1.4E6 
^t2B*:^(»> «> B=» of B=12 

2.1.4 STANDAARD ROUTINES 

GOm 111 Beze subroutine wist het schera en fWUi U gwsor linksboven 
Of> het schera (positie iii). 

GOSlffi 111 Hiermee wordt de cursor op een bepaalde plaats op het scherni 
gezet. Hiervoor worden de variabelen HO en VE sebruikt. In HO 
Wft #e rositie w ten reilt (tmllitfi links) stm m in VE 
ioet het restlntiiwr {N^evenste) staaa. 

@Mi m Mtfitt ifif#t dt m^i* m dt mm w fttt te^erj hemM 
m Ifi It idrii^te S ^ ^ ftf ft, 

Ifl Hitraee wordt sekeken «f ir ^ toels liNirtdct is. De waarde 
konit in INI te sta^, |s 19 wm teets ingedMrftt* ,dM is, IN* 
een lese strins. 

GO^ 211 Deze subroutiite wacbt tot er een tetii iorit imt^M m z«t 
dan de waarde iPvaA in IN$. 

GO^ 251 Deze tubroutine zorst er voor dat de cowuter een piep afseeft. 

GOSUB 261 Na aanroep van deze subrootine bevat RV een willekeuris setal 
tussen I en 1. 

GOSUB 271 Hiernee wordt de variabelenruitte opsertiint en vordt bepaalt 

hoeveel seheusenruimte er nos vriJ is. De variabelen w^^fA' nict 
sewist. Het aantai vriJe bytes kont te staan in FR. 

W&B 311 Hieriee wordt de waarde van SB owezet in een strinswaarde 

tti Ml Sm mtfni Itvert m die bwaaTt wordt door mm eti ^. 

is in waarde geliJk aan SR en altiJd in de fixed-Point notatie. 
De totale lenste van SR$ bedraast CT karakters* waarvan CN karak- 
ters na de decimale punt. Als het setal niet i« M ffiislgtven 
forinaat pastt bestaat SR$ uit CT sterren. 
CT=7:CN=:3:SR=2/3 :GOSUB 311 ==> SR$="i.667" 
CTs3:CN=l:SR=B.4sMI^ ^^1^" 24" 

eMso*=i !SR=iM imm 3ii =*> s^*«** 

GOSUB 351 Hiprsee wordt it mitter af»edrukt( de mtl iOtIt niit 
afsesleten. 

GOSUB 36» Hieraee wordt de resel de printer alieSftttn ft woHt er op 
een niewe resitl besonnen. 
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2,1.5 mimm 

SfMen. Dfze zijn: 

- H«B8fifki uttriabelen zian rtal en siistli if*|tisi«ft. 

De natiwkeurityi^ zal niet srsiter ziJn das zes decitalen. 

- dt nawin van vafiafeelen mosen niet !snfef zijn iin ttee karaW^^?. 
In deze naraen mogen alleen hoofdistters gebruikt wordsn. 

Voor strinsvariabelen wordt de naaa sfvois door $» alle andere toe- 
voesingen ziJn verboden !i. 

- Er sag geen aebruilc worden sesaakt van de numerieke waarde van iogische 
variab«kfl» Hit Ptsaltaat kan dus aHeen in een IF THE!^ constructie 
fet»Miikt warden. . . - 

...... hi }'* ' . 

- Vtofilt «iR Wfibeti Sitmfet wpd* mmi Ml een msvit kr iJisn. Ma 
BM hebbsft de variabelen dus NIET autonatisch de sifaarde nul . 

- StrififvaHabeteti ftwtn niet lanser zuu dan 255 kai^akters. 

- Namen van variafaeien moaen niet Sesmnen iset esn 0, line zi-ii gerfiser- 
veerd voor de standaardroutines. 

- Teven5 ziJn uitgesloten de namen! AS* Alt FN> GR» IFi Fit SIi. Tl» 
TI$ en TO. 

- Voor coBiHunicatie met de standaardrortines warden gabriiltf tei IE* 
m* P. «i CT* fir l}i* :in SR*. . ' 



2.1.4 iOCUMENTATIE 

Basicode-2 Hans b. Janssen 
Mlverfiiu ftedtplaalst Oisroep Stichting 

ISBN n-bm-m-2 

SISO 365.3 UK 681. ( 

2.2 HOBIYSGOOP 

HOBBYSCOOP zendt op de radio programiiia' s uit in BASICODE. 
De uitzendtiJden ziJn: 

- Woensdas RADIO 1+2 19.82 - 19.36 

- Donderdag mm S 17.31 - 17.36 



Naast BASICODE-prgraHiroa's zendt HOBBYSCOOP ook de BASICODE BEELDKRANT 
uit aet veel infopiatie over CQftPuteps en de landelijfee cwputer agenda. 
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nnn ^ • 


y UUU 






ORG 


$9000 




nnnL* 




























UUU 0 • 








SEARCH. OBJ 


Written 


by Jean De Noyette 














Ch.de Kerchovelaan,87 


0008: 












9000 - Gent 


0009: 












Belgium 


0010: 














nfiii • 






THIS SHORT PROGRAM, ESPECIALLY WRITTEN FOR DOS 65, IS 


0012: 






INTENDED TO BE 


CALLED EVERYTIME YOU BOOT-UP. IT WORKS 


0013: 






IN 


COMBINATION WITH ANOTHER FILE (ANNi), WHICH IS 


OOTt: 






USED AS AN AGENDA WHEREIN BIRTHDAYS AND APPOINTMENTS 








ARE STORED WITH EDITOR'S 


HELP. 


0016* 

\I\J 1 U • 






SO 


IT'S VERY USEFUL FOR 


THOSE WHO ARC USfD TO FO^RSIT 


nni7 • 






THEIR WIFE'S BIRTHDAY !. 


• • 9 • 


0018: 














Uv 1 7 • 














0020: 














0021 • 








*« DOS MONITOR ROUTINES >» 
















0023: 














002'»: 




4E 


EO 


CLS * 


$E04E 


CLEAR SCREEN 


0025: 




BO 


F3 


PNTXIN * 


$F3B0 


INCREASE POINTER 


0026: 




00 


EO 


PRINT • 


$E000 


PRINT A CHARACTER IN ACCU 


U U L f • 






F3 


CRLF * 


$F39C 


CR/LF 


uulO « 






r4 


BDPNTX * 


$F443 


MAKE RAMPROG. 


UU£ 7 : 




UD 


F4 


COPYPA * 


$F406 


COPY PARAMETERS IN RAMPROG. 


uupu • 






F3 


CHECKE ♦ 


$F3F5 


CHECK FOR END 


\I'V> 1 S 




flf 


EO 


PRSTR • 


$EOOF 


PRINT STRING 


\J\JJC • 




AQ 

"7 


FO 


HEXOE * 


$F0A9 


CONVERT TO DECIMAL IN X AND Y 
























«< VARIABLES >» 






















U V 


CE 


WHBUF * 


$CE6B 


"LOOK FOR "BUFFER' ' 


AO'S? • 




87 


CE 


DNTCR * 


$CE87 


WILD CHARACTER 


\J\JjO • 






CE 


NMB • 


$CE6A 


NUMBER OF CHARACTERS TO LOOK FOR 






J J 


CE 


PNTX • 


$CE35 


PROGRAM IN RAM, SELF MODIFYING 


W»0: 




IB 


CE 


PARAL ♦ 


$CE1B 


PARAMETER A 


OOitl: 




1C 


CE 


PARAH * 


$CE1C 




0042: 




ID 


CE 


PARBL * 


$CE1D 


PARAMETER B 


WA3: 




IE 


CE 


PARBH * 


$CE1E 




OOU: 




C2 


CE 


DAY * 


$CEC2 


DAY BUFFER 


OO'tS: 




C3 


CE 


MONTH • 


$CEC3 


MONTH BUFFER 


00'r6: 














OOif?: 


9000 


20 4E 


EO 


JSR 


CLS 




0048: 


9003 


20 OF 


EO 


JSR 


PRSTR 


RACE CURSOR IN CENTER OF SCREEN 


00^9: 9006 1^ 










0050: 


9007 


01 






$01 




0051: 


9008 


08 






$08 




0052: 


9009 


00 






$00 


GET VALUE OF DAY BUFFER(HEX) 


0053: 


900A 


AO C2 


CE 


LOA 


DAY 


0054: 


900D 


20 A9 


FO 


JSR 


HEXDE 


CONVERT IT TO DECIMAL I« f AID Y 
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UUP? . 


7U lU lO 








CLC 




UU7Q • 


7U 1 1 OA 








TXA 




w^wy f S 










mm 


m 


uupo « 


7U If ou 


0 D 






STA 




yujjs 


onn OR 








TYA 








50 






ADCIM $30 


UUoT t 


A A ^ 1 on 


bC 


A r 

CE 




STA 


WHBUF 


UUO^c 


Qnin iQ 

7U 1 U A7 


9n 
cu 






LDAIM $20 




jATTr OB 


00 


tt 






WHBUr 




yKJcc AU 




p r 




LDA 


MONTH 


UUO? i 




A 0 

Ay 


r A 
r U 




JSR 


HEXDE 




yilcO ID 








CLC 




UUD ^ i 


00 90 Q A 

yu^y OA 








TXA 




uuoo ; 


QnoA £q 
7U6A O7 


50 






igCIM 


$?0 




7 u£v> O U 


DC 


tt 




m-' ' 




uu / u • 


on 9 r OR 








TYA 




uu n • 




30 






AOCIM $30 




71/ 7C on 


Or 


PC 




STA 


WHBUF 


il'flVl • 
WV f'J ' 


0 0 71^ AO 


A A 

uu 






LDAIM $00 




9037 80 


1 D 


PC 

tt 




STA 


PARAL 


0075: 


f 151 *t 


htk 






LDAIM $'>0 


0076: 


903c 80 


1 f 


p r 




STA 


PARAH 


0077: 


903F A9 


nn 
uu 






LDAIM $00 




fill to 




pr 
tt 




STA 


PARBL 


0079: 


90^ A9 


Rn 

oU 






LDAIM $80 


0080; 


90'»6 80 


1 L 


PF 
tt 




STA 


PARBH 


00815 t®l9 *f 








LDAIM $05 


0082: 


90'tB 80 


0 A 


PF 
1 1 




STA 


NMB 


0083: 


90'tE 20 


or 


r 3 




JSR 


CRLF 




f051 ft 


f > 


PL 
r T 




JSR 


BDPNTX 


0085: 


905't 20 


UD 


Ft 




JSR 


COPYPA 


0086: 


9057 A2 


uu 




ifttur 


LDXIM 


$00 


0087: 




t-K 
r> 


r5 


JSR 


CHECKE 


0088: 


905c 80 


n A 

U A 






BCS 


CMWFAA 


0089: 


905E 20 


or 

yt 


CI 

r 3 




JSR 


CRLF 




9161 20 


Ur 


tu 




JSR 


$Eoor 


0091: 


90611 1B 








s 


$1B 


0092: 


9065 6E 










$6E 


ff95- 


fffis m 










$00 


009't: 


9067 60 








RTS 




0095: 


9068 20 


3> 


PF 
tt 


PMUF A A 
tnWr AA 


JSR 


PNTX 




9i6i m 


DD 


pr 
tt 




CMP AX 


WHBUF 


0097: 


9O6E FO 


OF 






BEO 


CMWG 


0098: 


9070 AD 


tin 
of 


P c 
tt 




LDA 


DNTCR 




f tf 3 m 




pr 
tt 




CMP AX 


wHBirr 


0100: 


9076 FO 


u f 






BEQ 


CMWG 


0101: 


9078 20 


Rn 
dU 


r 7 
.r J 


puur A 
tHWr A 


JSR 


PNTXIN 


flit* 


mn A t 


00 






imti 


$00 


0105: 


9070 FO 


OA 






BEQ 


CMwr 


OlO^f: 
OWfs 


907F E8 


u 


ct 


CMW6 


INX 

^ 


im 


0106: 


9085 DO 


Di. 






BNE 


CMWF 


0107: 


9085 20 


9C 


F3 




JSR 


CRLF 


0108: 


9088 20 


or 


EO 




m 





CONVERT X IN ASCII 

AND STORE IT IH BUFFER 

CONVERT Y IN ASCII 
+01 AND STORE;,lT„lil,,feaFFER 

+02 STORE IN BUFFER 

6EI VALUE OF HONTH BflFFER (HEX) 



SipRE ASCII VALUE OF MONTH 

id5 I* «Loot m» ItrfER 



SET START ADDRESS OF ASCII FILE 
IN PARAMETER A ($<>000) 



SET END ADDRESS OF ASCII FILE IN 
PARAMETER B ($8000) 

SET NUMBER OF CHARACTERS TO flMD 

( DD-MM ) = 5 

MAKE RAMPROG. 

COPY PARAHETEII I« WflOf* ,' 
READY? 



SET NORMAL VIDEO 

AND RETURN TO CALLER 

GET CHARACTERS FROM SELECTED AREA 

Ait rm WITH mm 

IS IT A DON'T CARE CHARACTER ? 
tmmt WITH BUFFER 

INCREASE POINTER 

BRANCH ALWAYS BACK II y# 

CHARACTER THE SAME 

Dfl AIL CHAtACTttS IITCI ? 

BRANCH IF NOT 

STRING FOUND I 

lit mm mm 



9-M8y*f8 nm SEARCH, TXT Pagv 3 



0109' 


! 9«8l 


IB 










$1B 


0110 


908C 


69 










$69 


0111 


. 908D 


07 










$07 


dllf« 




®{| 










Ido 


0113 


908F 


A2 


00 






LDXIM $00 


Oll't 


9091 


20 


35 


CE 


START 


JSR 


PNTX 


0115 


! 909^ C9 kQ 








0116 


. 9096 


FO 


EO 






BEQ 


CMWFA 


Oil? 


! 9098 


C9 


OD 






CMPIM 


$0D 


0118 


909A 


FO 


07 






gEQ 


^RI 


0119 


: 909C 


20 


00 


EO 




JSR 


PRINT 


0120 


909F 


E8 








INX 




0121 


! 9OA0 


kz 


91 


90 




JMP 


START 


0122 


90A3 


20 


9C 


F3 


PRI 


JSR 


C8LF 


0123 


: 90A6 


E8 








INX 




012^ 


! 90A7 


vc 


91 


90 




JHP 


START 



RING THE BELL 

GET CflRACTERS FROM SELECTED AREA 
'tl f T'%» ? ■ 
IF YES, SEARCH ANOT^R STRING 
IS IT A "CR" ? , 

If itii pimm Ltm 

PRINT IT OUT 

PRINT ON ANO|p|R LINE 



T AFTER ASSEMBLING PUT THIS PROGRAM IN A FILE 
(SEARCH. OBJ) AND SET IT ON DRIVE 0 IN THE COMMAND 

MODE. 

- CREATE AN ASCII FILE (ANNI) ON DRIVE 1 SUCH AS: 
IS-OB-^t? BIRTHDAY NADINE ^ 

23-OM3 BIRTHDAY JEAN ■ 

OE KERCHOVELAAN, 8?... 

WO SENT i' 

- DON'T FORGET THE AFTER EVERY TEXT. , 

- PUT "LO ANNI 'tOOO" FOLLOWED BY "SEARCH. OBJ" 
IN L0GIN.COM. 



NOW WHEN YOU'LL START UP YOUR SYSTEM, THE PROGRAM 
SEARe»!*;&iTtllt t&W^M' iktYllTf (DAY-MONTH) OF THE 
FILE "ANNI" WITH THE ACTUAL DATE, (OF COURSE YOU NEED 
A REAL TIME CLOCK !) AND IF THE COMPARISON IS TRUE, 

Will mm mr the information about thkt oii^ (and 

RING the BELL).,. 
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SOURCE FILE: CONVERSIE 



0000 s 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
DD67: 
E752: 
ED24: 
F941 : 
F948: 
FC22; 
FDED: 
FFfl7: 
0000: 
0000 : 
0024: 
0025: 
003E: 
0050: 
0200: 
03F6: 
0000 : 



6000 
6000 
6000 
6002 
6005 
6007 
600ft 
6O0B 
6O0B 
600C 
600E 
6010 
6013 
6015 
6016 
6018 
601fl 
601fl 
6010 
601D 
60 IF 
6022 
6023 
6025 
6027 
602fl 
602C 
602E 
6031 
6033 
6035 
6036 
6038 
603fl 
603B 
603D 
603F 
6041 
6044 
6046 
6049 
604B 
604B 
&04B 
604D 
6050 
6053 
6056 
6058 
605B 



1 
2 
3 
4 
5 
6 
7 



HEX/DEC EN DEC/HEC CONVERSIE ***# 

DOOR HANS BOSCH, 
REELflflN 35^ 
7522 LS ENSCHEDE. 

APPLESOFT EN MONITOR ROUTINES 



8 I^RMNUM 

9 GETflDR 

10 LINPRT 

11 PRNTflX 

12 PRBLNK 

13 VTfiB 

14 COUT 

15 GETNUM 

16 ; 

17 ; MEMORY 

18 CH 

19 CV 

20 fl2L 

21 LINNUM 

22 BUF 

23 flMPERV 

24 : 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$DD67 
*E752 
$ED24 
*F941 
$F948 
*FC22 
$FDED 
$FFfl7 



$24 

♦25 

*3E 

»50 

*200 

$3F6 









25 




ORG 


»6C00 


:ft9 


OB 




26 


:BRUN 


CONVERSIE. OBJO 




27 


INIT 


LDfl 


#> START 


:8D 


F6 


03 


28 




STO 


flMPERV 


:ftg 


60 




29 




LDfl 


# (START 


:8D 


F7 


03 


30 




STft 


AMPERV+ 


:60 






31 

32 




RTS 


i48 






33 


^TflRT 


PHfl 




■ftO 


09 




34 




LDY 


#9 


:C6 


25 




35 




DEC 


CV 


20 


22 


FC 


36 




JSR 


VTAB 


:84 


24 




37 




STY 


CH 


•68 






38 




PLfl 




.C9 


24 




39 




CMP 


#$24 


DO 


31 




40 
41 


• 

1 . _ 


BNE 


DEC 



BD 00 02 

09 80 

90 00 02 
Cfl 

DO F5 
AO 02 
20 fl7 FF 
A6 3E 
fl5 3F 
20 24 ED 
24 3F 

10 26 
8fl 

E5 3E 
85 3E 
8A 

E5 3F 
30 IC 
85 3F 
20 48 F9 
fl9 flD 
20 ED FD 
BO DF 



A9 A4 
20 ED FD 
20 67 DD 
20 52 E7 
A6 50 
20 41 F9 
20 DO 03 



43 HEXl 

44 

45 

46 

47 

48 

49 

50 HEX2 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 • 
67 

68 DEC 
69 
70 
71 
72 
73 



LDfl 

ORfl 

STfl 

DEX 

BNE 

LDY 

JSR 

LDX 

LDfl 

JSR 

BIT 

BPL 

TXfl 

SBC 

STfl 

TXfl 

SBC 

BMI 

STfl 

JSR 

LDfl 

JSR 

BCS 



BUF, X 
#$86 
BUF, X 

HEXl 
#2 

GETNUM 

fl2L 

fl2L+l 

LINPRT 

fl2L+l 

KLflflR 

fl2L 
A2L 

fl2L+l 

KLAflR 

fl2L+l 

PRBLNK 

»$flD 

COUT 

HEX2 



:DEC-HEX CONVERSIE 

LDfl *«fl4 

JSR COUT 

JSR FRMNUM 

JSR GETflDR 

LDX LINNUM 

JSR PRNTAX 

74 KLflflR JSR »3D0 



EXPRESSIE NflflR FflC 

FAC NAAR INTEGER IN LINNUM 

PRINT 2-BYTE NUMMER IN X (LSB) EN fl(MSB) 

PRINT A EN X REGISTER 

PRINT 3 SPflTIES 

ZET VTflB NflflR CV 

OUTPUT ROUTINE 

CONVERTEER VflN HEX NAAR DEC 



CURSOR HORIZONTAflL 
CURSOR VERTICAflL 
RESULTAAT HEX/DEC CONVERSIE 
RESULTflflT DEC/HEX CONVERSIE 
INPUT BUFFER 
AMPERSAND VECTOR 



LSB START ADRES 
MSB 

&VECTOR MUST NU NAAR START flDRES 

BERG A-REGISTER OP 

NAAR VORIGE REGEL 

TAB POSITIE OP Y 

HflflL fl-REGISTER TERUG 
$(HEX) INVOER? 



X WIJST flLTIJD VOORBIJ LflflTSTE DIGIT 
MAAK ALLE 7E BITS IN BUF HOOG 

WIJS NAAR IE DIGIT IN BUFFER ($0202) 

LSB 
MSB 

UITVOER RESULTAAT 
RESULTAAT ( 32768? 

A-REGISTER=0,^ CflRRY=SET 
TREK LSB ER VttNflF 

fl-REGISTER=0 
TREK MSB ER VflNflF 
$8000 INGETIKT? 
NEE, 

GEEF 3 SPflTIES, 
PRINT flLVflST "-" 

EN PRINT REST VflN NEGflTIEVE NOTflTIE 



PRINT "$" 

CONVERTEER INVOER NflflR FAC 

MSB IN fl EN LINNUM+1 

LSB 

UITVOER RESULTflflT 
TERUG NflAR APPLESOFT 



*** SUCCESSFUL ASSEMBLY: NO ERRORS 
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lhabelachtig prin ten in k leur of zwarti wit 





OKIMATE 20 




OKI MICROLINE 182 



Futuristische OKI-afdrukkers erkend de OKImate 20 v.a. fl. 985.- 

beste in Nederland. Nu ook voor Microline 182 v.a. fl. 1170.-- 

iedereen betaalbaar geworden. gxcl. b.tw. Bruto adviesprijs. 
Aansluitbaar op Commodore 64, BBC, 

MSX e.a. homecomputers. OKI printers, door computers voor computers. 



Vraag de dealerlijst bij de officieie Importeur 



Technitron B.V. 



Zwarteweg 110, Postbus 14, 1430 AA AalsmeerT tel. 02977-22456 - telefax 02977-40968 - telex 13301 





